$mailbox =~ m#^UFOFH( [\d/]{5}){4,27}$# && print $&;