1 while $line =~ s/\t/' ' x (8 - $-[0] % 8)/e;




-----------------------------------------------------------------------------
Copyright 1997-2024 Jeffrey Friedl