open F, '<', $yourfile or die "Couldn't open file: $!";
while (<F>) {
 print $1 if ( m{/Inbox/(.+)\.EMI}xms );
}