Select Code to Download

my @captures = ($input_token =~ /$regex/);

my $repl_index = 1;
{ 
...
    my @captures = ($str =~ /$regex/i);
    print "yields: ", $captures[$repl_index], "\n";
}