Since you're looking for a constant string, you can use substr and index in place of the regex, like so:

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

Note that, since I don't have Perl 4 installed anywhere, the code above is untested under Perl 4.

*Woof*