lol

#!/usr/bin/perl
# Ported from https://github.com/prashnts/dotfiles/blob/master/etc/dafaq.lol/dafaq.lol.go https://ascii.li/emoji

use strict;
use warnings;
use utf8;
use feature qw(say);

use Term::ANSIColor qw(LOCALCOLOR YELLOW GREEN);

our @Mouths = (
    ' v ',
    ' ᴥ ',
    'ᗝ',
    'Ѡ',
    ' ᗜ ',
    'Ꮂ',
    'ᨓ',
    'ᨎ',
    'ヮ',
    '╭͜ʖ╮',
    ' ͟ل͜',
    ' ͜ʖ',
    ' ͟ʖ',
    ' ʖ̯',
    ' ω ',
    ' ³',
    ' ε ',
    '﹏',
    ' □ ',
    ' ل͜ ',
    '‿',
    '╭╮',
    '‿‿',
    ' ▾ ',
    ' ‸ ',
    ' Д ',
    ' ∀ ',
    ' ! ',
    ' 人 ',
    ' . ',
    ' ロ ',
    '_',
    ' ෴ ',
    ' ꔢ ',
    ' ѽ ',
    ' ഌ ',
    ' ⏠ ',
    ' ⏏ ',
    ' ⍊ ',
    ' ⍘ ',
    'ツ',
    ' 益 ',
    '╭∩╮',
    ' Ĺ̯ ',
    ' ◡ ',
    '  ͜つ ',
);

our @Eyes = (
    ['⌐■', '■'],
    ['⌐▨', '▨'],
    [' ͠°', ' °'],
    ['⇀', '↼'],
    ['´• ', ' •`'],
    ['´', '`'],
    ['`', '´'],
    ['ó', 'ò'],
    ['ò', 'ó'],
    ['⸌', '⸍'],
    ['>', '<'],
    ['Ƹ̵̡', 'Ʒ'],
    ['ᗒ', 'ᗕ'],
    ['⪨', '⪩'],
    ['⋟', '⋞'],
    ['⫑', '⫒'],
    ['◥▶', '◀◤'],
    ['◍', '◎'],
    ['⌣', '⌣”'],
    [' ͡⎚', ' ͡⎚'],
    ['≋', '≋'],
    ['૦ઁ', '૦ઁ'],
    ['ꗞ', 'ꗞ'],
    ['ꔸ', 'ꔸ'],
    ['꘠', '꘠'],
    ['ꖘ', 'ꖘ'],
    ['ළ', 'ළ'],
    ['◉', '◉'],
    ['☉', '☉'],
    ['・', '・'],
    ['▰', '▰'],
    ['ᵔ', 'ᵔ'],
    [' ﾟ', ' ﾟ'],
    ['*', '*'],
    ['`', '`'],
    ['⊜', '⊜'],
    ['>', '>'],
    ['❍', '❍'],
    ['￣', '￣'],
    ['─', '─'],
    ['•', '•'],
    ['T', 'T'],
    ['^', '^'],
    ['ⱺ', 'ⱺ'],
    ['@', '@'],
    ['ȍ', 'ȍ'],
    ['x', 'x'],
    ['-', '-'],
    ['$', '$'],
    ['Ȍ', 'Ȍ'],
    ['ʘ', 'ʘ'],
    ['Ꝋ', 'Ꝋ'],
    ['⸟', '⸟'],
    ['๏', '๏'],
    ['ⴲ', 'ⴲ'],
    ['■', '■'],
    ['◕', '◕'],
    ['◔', '◔'],
    ['✧', '✧'],
    ['■', '■'],
    ['♥', '♥'],
    [' ͡°', ' ͡°'],
    ['¬', '¬'],
    [' º ', ' º '],
    ['⨶', '⨶'],
    ['⨱', '⨱'],
    ['⏓', '⏓'],
    ['⏒', '⏒'],
    ['⍜', '⍜'],
    ['⍤', '⍤'],
    ['ᚖ', 'ᚖ'],
    ['ᴗ', 'ᴗ'],
    ['ಠ', 'ಠ'],
    ['σ', 'σ'],
    ['☯', '☯'],
    ['ಥ', 'ಥ'],
    ['◙', '◙'],
    ['●', '●'],
    ['☉', '☉'],
    ['Ծ', 'Ծ'],
    ['❂', '❂'],
    ['ʘ', 'ʘ'],
    ['ↁ', 'ↁ'],
    ['句', '句'],
    ['ಸ', '໖'],
    ['ò', 'Ó'],
    ['O', 'o'],
);

our @Ears = (
    ['q', 'p'],
    ['ʢ', 'ʡ'],
    ['⸮', '?'],
    ['ʕ', 'ʔ'],
    ['ᖗ', 'ᖘ'],
    ['ᕦ', 'ᕥ'],
    ['ᕦ(', ')ᕥ'],
    ['ᕙ(', ')ᕗ'],
    ['ᘳ', 'ᘰ'],
    ['ᕮ', 'ᕭ'],
    ['ᕳ', 'ᕲ'],
    ['(', ')'],
    ['[', ']'],
    ['¯\\_', '_/¯'],
    ['୧', '୨'],
    ['୨', '୧'],
    ['⤜(', ')⤏'],
    ['ᑫ', 'ᑷ'],
    ['ᑴ', 'ᑷ'],
    ['ヽ(', ')ﾉ'],
    ['\\(', ')/'],
    ['乁(', ')ㄏ'],
    ['└[', ']┘'],
    ['(づ', ')づ'],
    ['(ง', ')ง'],
    ['⎝', '⎠'],
    ['ლ(', 'ლ)'],
    ['ᕕ(', ')ᕗ'],
    ['(∩', ')⊃━☆ﾟ.*'],
    ['|', ' |'],
    ['( ', ' ✿)'],
    ['(╯', '）╯︵ ┻━┻'],
    ['┻━┻ ︵ \\(', ')/ ︵ ┻━┻'],
    ['(╯', '）╯︵/(.□ . \\)'],
    ['ヘ(', 'ヘ)'],
    ['└(=', '=)┐'],
    ['┏━┓┏━┓┏━┓ ︵ /(', ')/'],
    ['╰(', ')つ¤=[]———'],
    ['╰(', ')つ¤==>'],
    ['≋≋≋≋≋̯̫⌧̯̫ (', ') '],
);

binmode STDOUT, ':utf8';
my $mouth = $Mouths[@Mouths * rand];
my ($leftEye, $rightEye) = @{$Eyes[@Eyes * rand]};
my ($leftEar, $rightEar) = @{$Ears[@Ears * rand]};
my $color = rand() < 0.42 ? YELLOW : GREEN;
say LOCALCOLOR $color, "$leftEar$leftEye$mouth$rightEye$rightEar";