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

##</code><code>##

my $repl_index = 1;
{ 
    print "attempt 1 ";
    my $str = "http://www.domain.com/";
    my $regex = qr|http://(.*)\.(.*)\.(.*)|;
    my @captures = ($str =~ /$regex/i);
    print "yields: ", $captures[$repl_index], "\n";
}