#!/bin/bash
perl -pe 's|(\e)\[(\d+)(;*)(\d*)(\w)||g'