It looks like the only thing left to do is print the matching lines to the output file:

while ( <LOG> ) {
  if ( $_ =~ /$MAL/i ) {
# Grab all strings that contain this regex
# Save them all in $out
    print OUT $_;
  }
[download]

Note that there's no comma "," after the file descriptor OUT.

Does that do what you want?

Update:  You don't need the final print OUT "$out"; of course.  Also, since the =~ operator works on $_ by default, you could simplify the line containing the regex match to:  if (/$MAL/) {.

Thanks, that helps but I am not sure how to write the logic for my commented out sudo code: # Grab all strings that contain this regex # Save them all in $out Thanks :)

Oh, sorry ... didn't see that! :-/

Try this:

# Find lines starting with "_ and ending with ".
my $MAL = '^"_.*"$';
[download]

Read up on perlretut for a good beginning guide to regular expressions.

---

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

use strict;
use warnings;

my $out = "Backup/backup.txt";
my $logfile="log.txt";
# Single quotes for more aethestically pleasing strings
my $MAL = '"_';
my $endstring = '"';

# Build a regular expression
my $re = qr[($MAL.*?$endstring)];

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

while (<LOG>) {
  # Grab all strings that contain this regex
  if (/$re/) {
    # Save them all in $out
    print OUT $1;
  }
}
[download]

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;
[download]

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

You might also consider not writing any code at all: Good ol' grep could do it in a jiffy.

grep '\"_' log.txt >Backup/backup.txt
[download]

--roboticus