Select Code to Download

$ perl -le '
    use List::Util "first";
...
      sub { print 1; 1 },
      sub { print 2; 1 };
'

my $regex = join '|', map quotemeta, @strings;
$regex = qr/^($regex)$/;

$string = $1 if $map =~ $regex;