#!/usr/bin/perl -w
#
# Grabs text and changes it to a format that'll output
# properly when @pemitted
#
# Last updated by gossamer on Mon Jan 12 16:59:07 EST 1998
#

use strict;

#print "\&text map=";
while (<>) {
   s/([\\|\[|\]|\{|\}|\(|\)|\%])/\\$1/go; # Escape some characters.
   s/\n/%r/go;
   s/ /%b/go;
   s/\t/%t/go;
   print;
}
print "\n";