emoji.pl

# Oona Räisänen 2013

@emoji = qw(  🌀   🌂   🌅   🌈   🌙   🌞   🌟   🌠   🌰   🌱   🌲   🌳   🌴   🌵   🌷   🌸 
              🌹   🌺   🌻   🌼   🌽   🌾   🌿   🍀   🍁   🍂   🍃   🍄   🍅   🍆   🍇   🍈  
              🍉   🍊   🍋   🍌   🍍   🍎   🍏   🍐   🍑   🍒   🍓   🍔   🍕   🍖   🍗   🍘  
              🍜   🍝   🍞   🍟   🍠   🍡   🍢   🍣   🍤   🍥   🍦   🍧   🍨   🍩   🍪   🍫 
              🍬   🍭   🍮   🍯   🍰   🍱   🍲   🍳   🍴   🍵   🍶   🍷   🍸   🍹   🍺   🍻 
              🍼   🎀   🎁   🎂   🎃   🎄   🎅   🎈   🎉   🎊   🎋   🎌   🎍   🎎   🎏   🎒 
              🎓   🎠   🎡   🎢   🎣   🎤   🎥   🎦   🎧   🎨   🎩   🎪   🎫   🎬   🎭   🎮 
              🎯   🎰   🎱   🎲   🎳   🎴   🎵   🎷   🎸   🎹   🎺   🎻   🎽   🎾   🎿   🏀 
              🏁   🏂   🏃   🏄   🏆   🏇   🏈   🏉   🏊   🐀   🐁   🐂   🐃   🐄   🐅   🐆 
              🐇   🐈   🐉   🐊   🐋   🐌   🐍   🐎   🐏   🐐   🐑   🐒   🐓   🐔   🐕   🐖 
              🐗   🐘   🐙   🐚   🐛   🐜   🐝   🐞   🐟   🐠   🐡   🐢   🐣   🐤   🐥   🐦 
              🐧   🐨   🐩   🐪   🐫   🐬   🐭   🐮   🐯   🐰   🐱   🐲   🐳   🐴   🐵   🐶 
              🐷   🐸   🐹   🐺   🐻   🐼   🐽   🐾   👀   👂   👃   👄   👅   👆   👇   👈 
              👉   👊   👋   👌   👍   👎   👏   👐   👑   👒   👓   👔   👕   👖   👗   👘 
              👙   👚   👛   👜   👝   👞   👟   👠   👡   👢   👣   👤   👥   👦   👧   👨 
              👩   👪   👮   👯   👺   👻   👼   👽   👾   👿   💀   💁   💂   💃   💄   💅  );


while (<>) {
  if (/[a-f0-9:]+:[a-f0-9:]+/) {
    ($b,$m,$a) = ($`, $&, $');
    @fp = map({ $emoji[$_] } map(hex, split(/:/, $m)));
    print $b.join("  ",@fp)." ".$a;
  }
}