#!/usr/bin/perl -w
# disguiseSlashes: replace slashes by SGML entities
# usage: disguiseSlashes < file
# note: keep slashes in XML tags
# 20050414 erikt@science.uva.nl

while (<STDIN>) {
   $line = $_;
   chomp($line);
   if ($line !~ /^<.*>$/) { $line =~ s/\//\&slash;/g; }
   print "$line\n";
}
exit(0);
