$string =~ /^[smtwhfa]*(?![smtwhfa])$/
$string =~ /^[s{1}m{1}t{1}w{1}h{1}f{1}a{1}]*$/
$string =~ /^([smtwhfa])(?!\1)*$/