$temp = substr ( $temp, index ( $temp, 'from:' ) + 5 )
  if $temp =~ /from:/;