use strict;
use warnings;

my $out = "Backup/backup.txt";
my $logfile="log.txt";

open LOG, "<$logfile" or die "Cannot open $logfile for read :$!";
open OUT, ">$out" or die "Cannot open $out for write :$!";

/\"_.*\"/ && print OUT $_ while( <LOG> );

close LOG;
close OUT;

##</code><code>##

/\"_(.*)\"/ && print OUT "$1\n" while ( <LOG> );