Help for this page

Select Code to Download


  1. or download this
    my $line1 = 'CABGFE';
my $line2 = 'DBF';

say for $line1 =~ /[$line2]/g;
  2. or download this
    my @line1 = qw(C A B G F E);
my @line2 = qw(D B F);
...
my $line2 = join '', @line2;

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