On 02 Jul 2004 05:53:37 GMT,
        In article <JUN.04Jul2145337@watson.nih.go.jp>,
        jun@nih.go.jp wrote:

> while (s/([^ ]+)(AGGA)/$1 $2 /) { }

> とすることで解決いたしました。

# どうでもいいけど、1 while s/(\S+)(AGGA)/$1 $2 / の方が短かい…

でも、これだと、AGGA が文字列の先頭にあるとマッチしません。

$ perl -e '$_="AGGAAAAGGAGGAGGTGAT\n"; 1 while s/(\S+)(AGGA)/$1 $2 /; print' 
AGGAAAAGG AGGA GGTGAT

AGGA AAAGG AGGA GGTGAT になって欲しいかな。

-- 
池田研二  稲城駅前在住