Perl option parsing example, removing goofy characters