@files = <blue_butt*.mo.gif>;

for (@files) {
  ($new = $_) =~ s/\.mo\./.live./;;
  system("ln -s $_ $new");
}