my @a= qw (a b c d e f);
my @b= qw (a b c);

my $joined_a = join '', @a;
my $joined_b = join '.*?', @b;

print "yes!\n" if $joined_a =~ /$joined_b/;