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