Select Code to Download

if ( $string =~ /^[smtwhfa]+$/
    and length $string == do {
        my %hsh;
...
    } ) {
   # everything's ok
}