Trouver la nième occurence d’un mot dans une chaîne à l’aide de modificateur ‘/g’

Author:
# Trouver le mot qui precede  la 3ème occurence du mot "Perl"
 
 
$occur = 3;      #Nième occurence
$