while (<INPUT>) {
    $_ =~ s/\e\[.+?m//g;
    print;
}