#!/usr/bin/perl
use strict;
use warnings;

my $string = "abcABC123ABCabc";
print "Regex1: ", $string =~ /abc[A-Z]*.2/, "\n" ;
print "Regex2: ", $string =~ /abc[A-Z]*2/, "\n";