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