if (/error/i) {
    #. . .
}
##</code><code>##

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