in reply to Match upper and lower case

Use the /i flag for case-insensitive match. 

if (/error/i) {
    #. . .
}

[download]
or 
my $erre = qr/error/i;
$str =~ $erre snd # . . .

[download]

After Compline,
Zaxo

In Section Seekers of Perl Wisdom