$FileLocation="/home/RND/Sample.txt";
open ($FILE, $FileLocation) or die "$!";
my @arr = <$FILE>;

my (@LineDetails);
foreach $line (@arr) {
        @LineDetails = split (/chr(4)/,$line); 
        print $_."\n" foreach ( @LineDetails );
}