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