Utilise l'option 'g'
$st =~ m/modele/g;

Je regarderai ton problème en détail quand j'aurai un petit peu de temps...