Help for this page

Select Code to Download

Select or download this

if ($eval =~ /^(p|BUG)?\d+(\D.*)$/) {
        warn $eval;
...
    } else {
        die "$eval could not be regularized";
    }