Your Account
Hear us Roar
my ($canonical = lc $arg) =~ s/\s+//g;
should read:
my $canonical = lc $arg; $canonical =~ s/\\s+//g;
Thanks to Tom Laudeman for pointing out the error.