open FILE, $filename or die "Can't open file: $!/n";
while (<FILE>) {
  $data = <FILE>;
  $foo = grep $data ("--from");
  print $foo;
}
close FILE;