Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        $severity = "Warning";
    }
}

my @severity_map = (
    ["Error","Warning"],         ["Warning","Minor"],
...
        next unless $description =~ /$_->[0]/i;
        $severity = $_->[1];
    }