my $grepped = grep(...
print $grepped, "\n";