197です。

perlはあまり使ったことがないので、203さんの言ってることは
ちょっとよくわかんないんですが、

全てヒットする必要はありません。
一個でもヒットする文字列ができればいいんです。

if ($str =~ /\d+/) {
}
とかあったときに、ifが成立するようなstrを生成したいというだけなので、
全ては必要ないですし、長さが最低でなければならないというわけでもありません。

>>206
自分でもいろいろ考えた結果、自分でパースするしかないかと思い
かなりめんどくさそうだったので、もしかしたらなんかいい方法あるかも？
とか思い質問したんですが、やっぱ地道な方法しかありませんか……