Select Code to Download

my $super_regex = join '|', sort {length $b <=> length $a} map quoteme
+ta($_), @list;
$var_val =~ s/($super_regex)/$prefix$1$suffix/g;