my $ar = [ 'Otto33' =~ /^([a-zA-Z]+)(\d+)$/];
print Dumper $ar;