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