zeroclickinfo-goodies/lib/DDG/Goodie/Ascii.pm

package DDG::Goodie::Ascii;
# ABSTRACT: ASCII

use DDG::Goodie;

triggers end => "ascii";

zci answer_type => "ascii_conversion";
zci is_cached => 1;

handle remainder => sub {
    my $ascii = pack("B*", $1) if /^(([0-1]{8})*)\s+(in|to)$/; 
    return $ascii if $ascii;
    return;
};

1;