🡪 🡩 🡫 🡬 🡭 🡯 🡮 🡸 🡺 🡹 🡻 🡼 🡽 🡿 🡾 ⇦ ⇨ ⇧ ⇩ ⬄ ⇳ ⬀ ⬁ ⬃ ⬂ 🢬 🢭 🗶 ✔ 🗷 🗹
]);
+our $NOCHAR = '�';
+
sub decode ($$;$) {
my ($self, $input, $check) = @_;
my $output = '';
for (unpack 'C*', $input) {
- $output .= $_ < 33 ? chr : ${ref($self).'::MAP'}[$_ - 33];
+ $output .= $_ < 33 ? chr : ${ref($self).'::MAP'}[$_ - 33] // $NOCHAR;
}
return $output;
}