Help for this page

Select Code to Download


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