$ perl /tmp/kk.pl 
Useless use of string in void context at /tmp/kk.pl line 38.
customer1 matches:	 test@customer1.service
customer2 matches:	 test@customer2.service
customer4 matches:	 test@customer4.service
customer5 matches:	 test@customer5.service