That's easy to get around:

sub delete_nth {
    my ( $str, $pat, $n ) = @_;
    my $cap = "$pat.*" x ( $n - 1 );
    $str =~ s/($cap)$pat/$1/;
    return $str;
}
[download]