>>77
なぜ $data =~ /^D/i じゃダメなの?
それとも /^D(a(m(n(A(ss?)?)?)?)?)?\z/i の間違い?

>>78-79
$data が 'DamnASS!' だと $arry =~ /^$data/i はマッチ
しないけどいいの?