Using normal variables instead of numbered ones works, too:

for $1 (666) {
    if (my ($match) = 333 =~ /(...)/) {
        print "$match\t$1\n";
    }
}
[download]