`strings $20150625163139.txt > Temp.txt`;

my $temp_file = "Temp.txt";
open($fh, ">", $20150625163139.txt) or die "Could not open file '$filename' $!";
open(my $fh1, "<", $temp_file) or die "Could not open file 'Temp.txt' $!";

while(<$fh1>){
    print $fh $_;
}
close $fh;
close $fh1;
unlink $temp_file;