use strict; use warnings; my $logfile="log.txt"; my $error="DOWN"; my $warn="PROBLEM"; my $redbutton="\"; my $greenbutton="\"; my $yellowbutton="\"; open LOG, $logfile or die "Cannot open $logfile for read :$!"; my $button = $greenbutton; my @logfile=; # throw logfile into an array while () { if ($_ =~ /$error/i) { $button = $redbutton; print "\n\n"; print "$button"; last; } elsif ($_ =~ /$warn/i) { $button = $yellowbutton; print "\n\n"; print "$button"; last; } else { print "\n\n"; print "$button"; last; } } close LOG;