Help for this page

Select Code to Download


  1. or download this
    @FILE2 = map { local $_=$_; s/(<Bz8>)([^ ]*)/$1$2<\$>/; $_ } @FILE;
  2. or download this
    s/(<Bz8>)([^ ]*)/$1$2<\$>/ foreach (@FILE);
  3. or download this
    foreach (@FILE) {
   s/(<Bz8>)([^ ]*)/$1$2<\$>/;
}