Select Code to Download

178c178
<     'z|sanitize'           => sub { push @perlexpr, 's/[!"$&()=?`*\'
+;<>|_[:cntrl:][:blank:]]+/_/g' },
---
>     'z|sanitize'           => sub { push @perlexpr, 's/[!"\$&()=?`*\
+';<>|_[:cntrl:][:blank:]]+/_/g' },

'c|lower-case' => sub { push @perlexpr, 'tr/A-Z/a-z/' },
'C|upper-case' => sub { push @perlexpr, 'tr/a-z/A-Z/' },
'z|sanitize'   => sub { push @perlexpr, 'tr/A-Za-z0-9\.\-/_/cs' },

18a19,20
> S<B<[ -g ]>>
> S<B<[ -I ]>>
...
>     run_hooks('pre');
221a274
>     run_hooks('post');

    rename -r -g "s/(\d+)/$1+1/e" *.txt
vs. rename "s/(\d+)/$1+1/e" 99.txt 98.txt 97.txt .. 1.txt

package Rename::MP3;

require MP3::Info;
...
       ${"main::$field"} = $value;
    }
}