$logfile="log.txt";

##</code><code>##

if ($logfile =~ /$error/i) {

##</code><code>##

while (my $line = <LOG>) {
    if ($line =~ /$error/i) {
    etc....