Perl: Remove ANSI sequences from a string

[ATC]

When processing terminal data or text files containing ANSI escape sequences, it can sometimes be useful to filter these out

[ATC]

sub remove_ansi  {
  for (@_) {
    $_ =~ s/\033\[[\?|0-9|\;]+?[a-z]//gi;
  }
}

Use like 'chop' and 'chomp', for example:

remove_ansi $string; # Remove ANSI from $string
remove_ansi $a, $b; # Remove ANSI from $a and $b

Note:
$string = remove_ansi $string; # Does NOT do what you expect!