D:\>surprise.pl all
 ('NAME'=~/$last/i)=0