Select Code to Download

s/^\s+|\s+$//g;

%hash = map { $v = $hash{$_}; s/^\s+|\s+$//g for $v,$_; $_,$v } keys %
+hash;

...
    }
    $hash{$key} = $value;
}