Actually, using grep here is OK, you just have to adjust the syntax:

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

pike