use 5.010;
my $mess = "all letters are found";
my $_ = "...";
my $letters  = "...";
foreach my $l (split //, $letters) {
    $mess = "not all wanted letters found", last unless /$l/;
}
say $mess;