my ($extract) = $line =~ m#^(From: .*?)$#m;