system("lpstat -v -d -p -l -D >junk.txt");
   open RI,"<junk.txt" || die "Can't open junk.txt for reading:$!\n";

   my $data = do { local $/; <RI> }; # or however you load it.

##</code><code>##

   my $data = `lpstat -v -d -p -l -D`;