Select Code to Download

perl -MO=Deparse,-p almsdealer.pl >deparse.pl

use strict;
use warnings;
...
    (@allTags = (@allTags, keys(%uniqueTags)));
}
print(("@allTags\n"));

    my ($str) = @_;

    my $str = shift;    # the string to be trimmed