sub killperformance {
    eval q{
        use re qw(debug);
        $&;
    };
}