@character=split //; # split $_ into single characters
  while (@character){