use strict;
use warnings;

my @names = ('ABC','123test','DEF','Gibberishafdaf','Moretest','Gibberishafdaf');

($_ =~ /test$/) ? print "[$_] Pattern found\n": print "[$_] Pattern NOT found\n" , for(@names);