>>128 >>131
なんか面白そうなお話なので、参加せてください。

strstr() && strstr() は長い。

これ常識ですよ。何も、>>128 や >>131 みたいな小難しい話を書かなくても
文字数数えれば十分。否、ぱっと見でも十分っすよ。
あまりにも文字数の差が歴然としすぎていて、今まで数えたた事なかったなぁ・・・

Perlプログラミングの最大の目的はいかに文字数を少なく処理を書くかですよ。
読みやすさなんか関係ないです。長々とコード書いて腱鞘炎にでもなったらどうするんですか？

人間止めますか、小難しい話やめますか？