Nasty piece of code, but works:
__CODE__
while (<>) {
print;
my @a = /\'/g ;
print "MATCH\n" if not scalar (@a) % 2;
}
__END__Matches blank lines as well. I tried to do something like the following, but it didn't work. It fails on a zero-quote line. No idea why. /^([^']*'[^']*'[^']*)*$/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
