#!/usr/local/bin/perl 

#s/(<IMG BORDER=0 ALIGN=([^>])*>)/LEFT\2\3<HR WIDTH=0>/g;

$text = "";

while(<>){

$text = $text . $_;

}

$text =~ s/(<IMG BORDER=0 ALIGN=)BOTTOM( ALT=""" SRC="..\/gif\/img\d*.gif"\n><\/A><P><\/P>)/\1LEFT\2<HR WIDTH=0>/g;
print $text;
