C:>perl -e "$s = \"foo\nfoot\nroot\";($y) = $s =~ /^foo/gm;print $y;"
foo