Select Code to Download

#!/usr/bin/perl

...

my @fileTags = map{myTrim($_)}@fileTags.
@fileTags = uniq @fileTags;

#!/usr/bin/perl

...
$x = myTrim($x);

print "$x!\n"; #prints "x    !"