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