#!/usr/bin/perl -w

#opening Rules1.txt for reading
open(FIN, "< Rules1.txt") or die "unable to open Rules1.txt: err at $!";
#opening for writing
open(FOUT, "> Rules.txt") or die "unable to open Rules1.txt: err at $!";

while(<FIN>) 
  {
      $line = $_;
      $line =~ s#<b>#/*<b>#ig;
      $line =~ s#</b>#</b>*/#ig;
      print FOUT $line;
  }
close(FOUT);