Yes, but not in the same pass.

>perl -E"say join ',', qq{foo\nfoot\nroot} =~ /^foo/gm;"
foo,foo
[download]