Select Code to Download

my $subst = 'lc $1';
# and later
$str =~ s{$pattern}{push @pos, pos $str; eval $subst; }eg

use strict;
use warnings;
...
    print Dumper \@pos;
    print $str, "\n";
}