Regular Expression Perl

while(){
   print if/^\w+\s(?![BC])/;
}
__DATA__
    ABC
    CBC