sub new_regex {
    my $buf = shift;

    $buf =~ s/(.)/sprintf '%3d ', ord($1)/ge;
    chop $buf;
    return $buf;
}