$ perl -le '$s = "a"; print "\U$s"'
A
$ perl -le '$s = "a"; print "matched a" if "a" =~ "\U$s"'
$ perl -le '$s = "a"; print "matched A" if "A" =~ "\U$s"'
matched A