$noesc =~ s/(\e\[\d+G|\e\[\d+(;\d+)*m|\r*)//g;