>>628
まじかよ！？
正規表現でも実現しようぜ。

for (0..100){
unless ( $value =~ s/＠/$_/ ) { last }
}

perlならこれで動くか？なんか怖いからテストしたくないなｗ