use warnings; use strict; while () { if (/^[a-z]+\s+\d{2}$/i) { print "PASS $_"; } else { print "FAIL $_"; } } __DATA__ xyz 12 45 xyz 123 xyz 12 #### FAIL xyz 12 45 FAIL xyz 123 PASS xyz 12