=pod 123456789|123456789|123456789|123456789|123456789|123456789|123456789|123456789| 1 t t t t =cut if ($tab) { Tabbabr (); } my $ VARI = <