Select Code to Download

my ($pat, $repl, $mods) = $substitution =~ m{
    ^s/
...
} else {
    $candidate =~ s/$pat/$repl/;
}