#!/usr/bin/perl
use strict;
use warnings;
my @names;

@names = ("by MRCUS ELN AP","AP, Ctina Appe","John Ap Smith","Application Specialist");
foreach my $name (@names){
$name =~ m/AP/i;
print "$name\n";
}