# /usr/local/bin/perl ######################################################## # ps2ascii: look through a PostScript file for ASCII strings # # Usage: # ps2ascii # ######################################################## $out = ""; while(<>) { $line = $_; while($line =~/\((.*)\)(.*)/) { $line = $2; if(length($out)+length($1) > 76) { print "$out\n"; $out=""; } $out=$out." ".$1; } } print "$out\n";