while /\A(.*?)/.match(str) Regexp.last_match end \Aは ^と似た働きをしますが、大きな違いは ^が文字列中に埋め込まれた改行の直後にもマッチする場合があるのに対して、この演算子は常に文字列の先頭にのみマッチするということです。で、これをperlに変…