my $erre = qr/error/i;
$str =~ $erre snd # . . .