Cleanups

Continuing the cleanup process...
If the idea is to optimize this, using /o seems like the least opportune way to do it. From perlre:

    o  - pretend to optimize your code, but actually introduce bugs

Wouldn't it be better to instead leave the regex outside the format sub, and precompile it there? IE:

    - my $qchar = '[^a-zA-Z0-9!#\$\%\&\x27\*\+\x2D\/=\?\^_`{\|}~.]';
    +my $qchar = s/([^a-zA-Z0-9!#\$\%\&\x27\*\+\x2D\/=\?\^_`{\|}~.])/\\$1/g;

and then:

    - if ((my $user = $self->{_user}) =~ s/($qchar)/\\$1/g) {
    +if ((my $user = $self->{_user}) =~ $qchar) {