#!/usr/bin/perl -w
# Strips ANSI colour codes from stdin and pipes the result to stdout

while (<STDIN>) {
  s/\033\[(?:\d+(?:;\d+)*)*m//go;
  print $_
}

