I guess "Name of email" is the variable part? Then this might do

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

UPDATE: Forgot closing bracket