my @array = (a..j);

my $string = join ("", @array);

if ($string =~ /bcd/){
    print "'bcd' gefunden!\n";
}
else{
    print "'bcd' existiert nicht!\n";
}