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

##</code><code>##

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