perl -e'die unpack q=H*=, chr 219'
db at -e line 1.

perl -e'die 1 if chr(219) =~ /\xDB/'
1 at -e line 1.
[download]