Select Code to Download

use strict;
use warnings;
...
if ($string =~ /bar(.*)bow/) {
    print "between bar and bow is '$1'\n";
}

$ perl x.pl
between bar and bow is ' baz '