>>80
やあ(´・ω・｀)こんな夜中(早朝？)にナイスツッコミだ。
実は>>78のアイデアがうまくいかなくて，10分くらい悩んだ。
原因は，つまり君のツッコミそのものだった。

> /^D(a(m(n(A(ss?)?)?)?)?)?\z/i の間違い?
> $data が 'DamnASS!' だと $arry =~ /^$data/i はマッチ
> しないけどいいの?

鋭いね。実は僕の質問に間違いがあったんだ。ごめん。
結局僕は
　$data =~ /^D(a(m(n(A(s(s.*)?)?)?)?)?)?\z/i
という正規表現のスマート化をしたかったんだね。
　my $arry = 'DamnAss';
　my $subdata = substr($data, 0, length($arry));
　if ($arry =~ /^\Q$subdata\E/i) { ...
として解決したよ。