last if /^__DISCARD__/;

##</code><code>##

    next if $_ =~ /--.*/;
    next if $_ =~ /^SVSA.?/;

##</code><code>##

    next if $_ =~ /--/;
    next if $_ =~ /^SVSA/;

##</code><code>##

next if $_ =~ /^--/;

##</code><code>##

next if $_ =~ /^\s*--/; # also removing lines having -- with some leading white spaces

##</code><code>##

next if $_ =~ /^\s*$/; # also removing lines with only white spaces