join("",sort split //,$first) =~ ("^".join("?",sort(split //,$second))."?\\z")