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

open(FILE," text.txt");
while(<FILE>){
   print printable($_);
}
close(FILE);