--- a/lib/DNS/Vi.pm	Thu Apr 09 13:26:46 2015 +0200
+++ b/lib/DNS/Vi.pm	Thu Apr 09 13:55:37 2015 +0200
@@ -31,7 +31,10 @@
 
     $_ = '';
     foreach (@lines) {
-        s{;.*$}{};    # strip trailing comments
+	# simplificated comment remover
+	# after the comment character no '"' is allowed!
+        s{^\s*;.*$}{};		  # strip comment lines
+	s{\s*;[^"]*$}{};	  # strip trailing comments
         state $line;
         if (my $range = /(.*)\(\s*$/ .. /(.*)\)\s*/) {
             $line .= defined $1 ? $1 : $_;