local $/;
my $text = <DATA>;

my ($number, $from) = $text =~ /mailbox (\d+).*?From:\s*([^\n]+)/;