Regular Expression Perl

while(){
    print if /(?}
__DATA__
    Betty
    CBC
    ABC