#!/usr/bin/perl use strict; use warnings; use utf8; # @see https://perldoc.perl.org/Term/ANSIColor.html use Term::ANSIColor qw(:constants); my %setting = (); my $reset = RESET; my @regexList = (); # check arguments my $isInvalid = (@ARGV == 0) || ($ARGV[0] eq '') || (@ARGV % 2 != 0); if ($isInvalid) { &printErrMsg(); exit 1; } # preparation while (my $regex = shift) { my $color = shift; my $isInva