sub resp { "abcdefg" }

while (resp =~ /(.)/g) {
  print $1
}