Select Code to Download

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

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