next if $line =~ /\W/;
next if $line != /^[A-Z]/;
next if $line =~ /[^A-Z]/;