Select Code to Download

print printable( "\tNow is the time\nfor all good folks\n" ); 
\tNow is the time\nfor all good folks\n 

#!/usr/bin/perl -w
use String::Escape qw( printable ) ;

...
   print printable($_);
}
close(FILE);