Regular Expression Perl

while(){
    print if /[ABC]\D/
}
__DATA__
    Steve 
    Mary
    Abort
    Jack