$result=`cat $file | anotherscript.pl`;

##</code><code>##

# Note: Code untested!
my @none=grep { chomp; /NONE$/ } qx(anotherscript.pl <$file);