Select Code to Download

use warnings;
use strict;
...
my $string = q{fie foo bar baz barf};

print qq{found $1} if $string =~ m{ foo \s* ($BAR) \s* baz }xms;

found bar