$str = 'Nothing but perl can parse Perl';

while (/perl/gi) {
   # Loops twice
}

while (/perl/i) {
   # Loops forever
}