use strict;
use warnings;
use Data::Dumper;

my @mydata = qw/ abcd cabc abcdabcd defg xyz /;

for(@mydata)
{
    if($_ =~ /abc/g)
    {
        print "$_\n";  #print the line
    }
}

##</code><code>##

abcd
cabc
abcdabcd