Help for this page
if (/^PER\s*$/) ... elsif (/^EMP\s*$/) ...
else { print "neither PER or EMP matched!\n value is $_\n" }