Select Code to Download

$str =~ s{$pat}{
   prompt( $_, $-[0], $+[0]-$-[0], $&, $repl, $`, $' )
   ? $repl
   : $&
}eg

use String::Substitution qw( interpolate_match_vars last_match_vars );

...
   ? $true_repl
   : $&
}eg