
while(<>) {
  s#HREF=/tst1/\S*#HREF=bohuzel.htm#i;
  s#HREF="/tst1/\S*"#HREF=bohuzel.htm#i;
  print $_;
}
