my $string = "2002023884ks293jjksd"
for ($x = 0; $string =~ /(.)/g; $x++) {
    ;
}