my $n =()= / \b aiutino \b /gix;
warn "Argh, $n times";