--- branches/hidra/openisis/perl/OpenIsis.pm	2004/03/08 18:07:37	242
+++ branches/hidra/openisis/perl/OpenIsis.pm	2004/03/11 17:53:21	257
@@ -81,7 +81,7 @@
 
 sub MHL {
 	for ( @_ ) {
-		s/(<[^=>]*)=[^>]+>/\1>/g; # dump <a=b> substitutions
+		s/(<[^=>]*)=[^>]+>/$1>/g; # dump <a=b> substitutions
 		s/></; /g; # replace >< pairs
 		s/[><]//g; # nuke other ><
 		s/^\^.//; # kill initial subfield spec