use strict;

print get_a_penguin();

sub get_a_penguin
{
    # http://www.stud.uni-hannover.de/~freise/ascii/pqr/penguins.txt
    my @penguins = (
        "(o_\n//\\\nV_/_3 Standard Penguin",

        "(*_\n//\\\nV_/_3 Drunk Penguin",

        "(O_\n//\\\nV_/_3 Shocked Penguin",

        "(o<\n//\\\nV_/_3 Noisy Penguin",

        "(o<)<\n//\\\nV_/_1 Penguin Eating Fish",

        "_o)\n//\\\nV_/_3 Paranoid Penguin",

        "10 (o_\n(o_2 (o_2 //\\\n(/)_ (/)_ V_/_4 The Penguin Family",

        "(o|\n//\\\nV_/_3 Penguin after hitting a wall",

        "2 _7 _14 _\n_{v}_4 (v)5 ('>4 ( )\n /-\\4 //-\\\\4 /V\\3 // ".
        "\\\\\n(\\_/)3 (\\_/)3 <(_)3 (\\=/)\n ^ ^5 ^ ^6 2~4 ~ ~2 mis".
        "cellaneous penguins",

        "3 <`)4 (v)4 ('>5 ( )\n3 (V)3 //_\\\\3 (V)4 //_\\\\\n ]/__)>2 
+".
        "(U_U)2 <(__\\[2 (\\=/) sitting penguins",

        "11 _o18 _17 _o_3 o3 o\n6 o4 (^)2 _13 (o)4 >')9 (^)  (^) (^)\n
+".
        "3 _ (^) ('>~ _(v)_6 _3 //-\\\\3 /V\\6 ('> ~ 2_.~3 ~\n ('v')~"
+.
        " // \\\\  /-\\6 (.)-=_\\_/)3 (_)>5 (V)  ~  ~~ /__ /\\\n//-=-"
+.
        "\\\\ (\\_/) (\\_/)6 V \\ _)>~4 ~~6 <(__\\[5 ](2_=_')\n(\\_=_/
+".
        ")  ^ ^3 ^ ^7 ~  ~~16 4~8 5~\n_^^_^^3 __2 ..-.3 ..3-I3~:_  .__
+".
        "3.--.._.;-'I4~-.4_2.;-\n |~|5~| ~~|  _3 |4 |  _| ~~|  |  |  "
+.
        "|  |_ |6 | _ |  |\n_.-~~_.-~-~._.-~~._.-~-~_.-~~_.-~~_.-~-~._
+".
        ".-~~._.-~-~_.-~~_.-~-~\n27 .18 .  ' .4 .4 .\n17 .  '.3 ;4 .9 
+".
        "<(')-/|=-/ . '  : . '\n7 _  .  '3 .4 .4 .15 ~~-==~\\  . '\n6 
+".
        "(.)-/|=-\\ . '  : . '\n7 V ~-=-~-  . '\n6 ,\n3 <')_><  Pengui
+n".
        " family photo"


    );
    my $penguin = $penguins[ rand() * @penguins ];
    $penguin =~ s/(\d+)(.)/$2x$1/ge;
    return $penguin;
}
[download]