$direction = 1; #set to -1 to go to opposite direction

@array = split(//, $string);
for (@array) {
   print $array[$i];
   $i = ($i + $direction) % ($#array + 1);
};