# ps2ascii: look through a PostScript file for ASCII strings

# /usr/local/bin/perl
########################################################
# ps2ascii: look through a PostScript file for ASCII strings
#
# Usage:
# ps2ascii <inputfile.ps>
#
########################################################

$out = "";
while(<>)
{
$line = $_;
while($line =~/$(.*)$(.*)/) {
$line = $2;
if(length($out)+length($1) > 76) {
print "$out\n";
$out="";
}
$out=$out." ".$1;
}
}
print "$out\n";