Select Code to Download

    if ($line =~ /DOWN/) {
        # ...
    } elsif ($line =~ /PROBLEM/) {
        # ...
    }

my $error = "DOWN";
my $warn  = "PROBLEM";
...
    } elsif ($line =~ /$warn/) {
        # ...
    }

    my $error = "Server ... DOWN";
    if ($line =~ /$error/) {
        # conditional clause
    }