while ( $string =~ m/(.)/g ){
    print $1;
}