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

}