$str = 'ABC';
pos($str) = 1;
while (/.\G/g) {
    print $&;
}