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 <')_><  Penguin".
		" family photo"


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