Mega Code Archive

 

Categories / Perl / Regular Expression

 

Beginning of line anchor

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