Re^9: Getting an unknown error (foreach $1 breaks m//atch)

[choroba]

Using normal variables instead of numbered ones works, too:

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