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