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 ) ; open(FILE," text.txt"); while(){ print printable($_); } close(FILE);