Regular Expression Perl

while(){
   print if /^[JK]/;
}
__DATA__
    Mark 
    Mary
    Jack
    Kate