I believe you want ^ with the m modifier.

while ("abc\ndef\nghi" =~ /^(.)/mg) {
   print("$1\n");  # a,d,g
}
[download]