perlを暫く使ってないので、前回の250pt問題に取り組んでみる。
250pt
…手が動かない、（ ﾟдﾟ）ﾎﾟｶｰﾝ…忘れてる。
入門サイトを見ながら思い出す。
~s/A|Z/(push@w,$&),$&/ge,~s/A|Z/pop@w/ge,print
for<>
下手なりにｼｮｰﾄｺｰﾃﾞｨﾝｸﾞ済み。
もっと短く出来そうだなぁ、perlのｼｮｰﾄｺｰﾃﾞｨﾝｸﾞは奥が深すぎる…。
push関数の戻り値は追加された配列のサイズっぽい。
追記：10文字以上AかZがあるとバグるコードだったので書き直した。
