Select Code to Download

#!/usr/bin/perl

...
               map trim_end,
               "$1", "$2";
}

print(trim_start(trim_end($var)), "\n");

my @trimed = map trim_start, map trim_end, @untrimmed;