sub resp { "abcdefg" }

while (&resp =~ /(.)/g) { # you forgot the &,didn't you?
  print $1;
}