#!/usr/dist/exe/perl -pi.old
eval 'exec /usr/dist/exe/perl -pi -S $0 $*'
if 0;


# I18N Guidelines and Techniques 


#$jbchar=$ARGV[0];
#have it read prefix string from a file 
$jbchar=`cat jbcharfile`;
chop $jbchar;


s/<TITLE>/<TITLE>$jbchar/;

s/<title>/<title>$jbchar/;

s/<H1>/<H1>$jbchar/;

s/<h1>/<h1>$jbchar/;