Well. I actually tried an example from another script I created to strip ANSI sequences from (type)script output

binmode STDIN, ":raw:eol(LF)";
while (<STDIN>) {
    s/\033[^m]*m//g;
    print $_;
[download]

But I found my problem seems to stem from how to implement it -- plug it into what I have working with Net::CIDR. As shown in my OP example.