ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch3/expand

Text File | 1992-10-18 | 76 b | 3 lines

#!/usr/bin/perl -p
1 while s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e;