Help for this page

Select Code to Download

Select or download this

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