Select Code to Download

my $data         = 'Just another Perl hacker,';
my $expression   = 's/(another)/a/';
...
if( $result ) {
    print "$match_var => $data\n";
}

my $data         = 'Just another Perl hacker,';
my $expression   = 's/(another)/a/; print "Hello world!\n";';
...
if( $result ) {
    print "$match_var => $data\n";
}