Help for this page
$line =~ s/^([^#]*)#.*$/$1/;
$line =~ s/^ ( # grab this stuff in $1 ... .* $ /$1/x;