instead of using split, use a regex:

if ( my ($from) = /^im(.*)/ ) {
    # do stuff
}
[download]

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

I'd recommend changing your naming scheme for your files, for starters, to something that people won't be naming themselves.