Select Code to Download

use strict;
use warnings;
...

print "No match: '$text', '$match'\n" if $text !~ /$regex/i;
print "/i match: '$text', '$match'\n" if $text =~ /$match/i;

No match: 'Abcd', 'abcd'
/i match: 'Abcd', 'abcd'