#!/usr/bin/perl
# Copyright (C) 2005 by Flavio Poletti
# (perl -ple'$_=reverse' <<<ti.xittelop@oivalf)
# NO WARRANTY AT ALL
# Same license as Perl, as of version 5.8.0 or following
use warnings;
use strict;
 
sub encode {
        local $_ = unpack "b*", pop;
        my @smileys = qw| :( :/ :) :D |;
        s/(..)/$smileys[ord(pack"b*",$1)].' '/ge;
        s/(.{1,63})/$1\n/g;
        $_;
}
sub decode {
        local $_ = pop;
        my %smileys = ( D => '11', '(' => '00', ')' => '01', '/' => '10');
        s/:(.)\s*/$smileys{$1}/ge;
        pack "b*", $_;
}