$s = 'a10';;

$s =~ s[(.)(.+)][\U$1:$2];;

print $s;;
A:10