すいません、QRコードのバージョンを決定するのに必要なビット数をPerlで計算したいのですが、
ここの下部を読んだところ大変そうです。
http://www.qrcode.com/about/version.html
英数字に関しては「桁数」とか書いてあるので連続した状態で切り分けなければならないようです。
例文として「今日は、2013年10月18日土曜日なのでLOFTへ買い物に行きます」のような文章の場合は、

今日は、　2013　年　10　月　18　日土曜日なので　LOFT　買い物に行きます

のように分解する必要があるようです。
この切り分けは正規表現やsplit使うのも難しそうで、どのようにして切り分ければいいでしょうか。