sub includes {
    $_=$_[1]; 
    foreach my $ltr (split //,$_[0]) {s/$ltr//i};
    if (length) {print "no match"} else {print "match"}
} 

includes("elephant", "ant");
[download]

andy.