in reply to not defined Hash data came why?

Try adding a debug print after the substitution: 
if ($3 eq q()) {
    warn "<< $.: $_ >>\n";
}

[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom