while ('abc' =~ /(.)/g) {
   print($1);
}