next if ($line /^\#/);

##</code><code>##

hostname # this is a comment for hostname

##</code><code>##

$line =~ s/(.*)\#.*/$1/g;