open FILE, $filename or die "Can't open file: $!\n";
my @recs = grep {s/^.*--from//} <FILE>;
print @recs;
close FILE;