[perl][ruby][\A] - (ヽ´ω`)　

while /\A(.*?)/.match(str)
   Regexp.last_match
end

\Aは

^と似た働きをしますが、大きな違いは ^が文字列中に埋め込まれた改行の直後にもマッチする場合があるのに対して、この演算子は常に文字列の先頭にのみマッチするということです。

で、これをperlに変えるには、如何するべきか、改行なくしちゃうのが一番早いか。

my $str =~ s/\n//g;

うーん。