$file =~ s/[;\n]\s*#[^\n]*//sg; # Delete comments