print $mailbox =~ m#UFOFH ([0-9//]{5} ){4,27}#ig;