Select Code to Download

builder {

...
    my ($string, $head, $tail) = @_;
    $string =~ s{ \A \Q$head\E (.+?) \Q$tail\E \z }{$1}xmsr;
}