my ($canonical = lc $arg) =~ s/\s+//g;
my $canonical = lc $arg;
$canonical =~ s/\\s+//g;
Thanks to Tom Laudeman for pointing out the error.
© 2014, O’Reilly Media, Inc.
All trademarks and registered trademarks appearing on oreilly.com are the property of their respective owners.