while (<FILE>) {
   my ($name) = /^--from\s*([^@]+)/;
   print ($name) if defined $name;
}