$Datafile =`Datascript -p=$perl_file`;
open $file, '<', $Datafile or die "could not open '$file' $!"; 
while ( my $match = <$file> ) { 

}