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