in reply to what regular expression do I need?
print "$. : $line\n" if $line =~ m/[^IMO]/;
Cheers Rolf
( addicted to the Perl Programming Language)