$str = 'nothing but perl can parse Perl';
@match = $str =~ /(perl)/gi;
print for @match;