#!/usr/bin/perl -l

use warnings;
use strict;

undef $/;
my $txt = <>;

(my $number) = $txt =~ /mailbox (\d{11})/;
(my $from)   = $txt =~ /From: (.*?)\n/;

print "$number -> $from\n";