#!/bin/perl -w


open(FILE,"$ARGV[0]") || die "Can't open file.\n";
open(OUT,">$ARGV[0].noansi") || die "Can't open file.\n";

while(<FILE>) {

        s/[[;0-9]+m//g;

	print OUT "$_";

}