$from =~ /@/; $from = $`;