Haven't tested this, but liked the idea.... :)

my $n = whatever...
my $i=0;
while ( ($string =~ /PATTERN/g) && ($i < $n ) ) {
    $i++;
}

my $NthMatch = $1;
[download]