my $line1 = 'CABGFE';
my $line2 = 'DBF';

say for $line1 =~ /[$line2]/g;