if ($var ~= m/\*/)

##</code><code>##

unless($path ~= m/\/$/)

##</code><code>##

$output ~= s/\.gz$//;