Select Code to Download

my $patternreadfromfile
    = q{<h1 tag="@{[substr "$2",1,-1]}">@{[substr "$1",1,-1]}</h1>};

my $patternreadfromfile= q{do_what_i_want( $1, $2 )};

...
}

my $outpattern = $patternreadfromfile;

my $doit = sub {
    my ($one, $two) = @_;
...
    return qq{<h1 tag="$one">$two</h1>};
};
my $patternreadfromfile= q{$doit->( $1, $2 )};