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