Select Code to Download

if (uc $error eq "ERROR"){
   # . . .
}

if (lc $error eq "error"){
   # . . .
}

#!/usr/bin/perl

...
                lc => sub { $test_str eq lc for @test} }, 'all';

__END__

Benchmark: running lc, regex for at least 30 CPU seconds...
        lc: 34.068 wallclock secs (34.10 usr  0.00 sys +  0.00 cusr  0
+.00 csys = 34.10 CPU) @ 19917.24/s (n=679178)
...
         Rate regex    lc
regex 13690/s    --  -31%
lc    19917/s   45%    --

Benchmark: running lc, regex for at least 30 CPU seconds...
        lc: 31.4462 wallclock secs (31.45 usr  0.00 sys +  0.00 cusr  
+0.00 csys = 31.45 CPU) @ 26138.57/s (n=822058)
...
         Rate regex    lc
regex 14326/s    --  -45%
lc    26139/s   82%    --