#!/usr/bin/perl
@a=<./*.html>;
foreach $n (@a) {
  rename("$n","$n.old");
  open(IN,"$n.old") || die "Cannot open $n.old for reading";
  open(OUT,">$n") || die "cannot create $n ";
  while (<IN>) {
   s/:8880//g;
   print OUT $_;
  }
  close(IN);
  unlink("$n.old");
  close(OUT);
}