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