#!/usr/bin/perl
# /----------\
# |kitten say|
# \---\ /----/
#     /
# |\_/|
# |o o|__
# --*--__\
# C_C_(___)
# WHAT YOU SAY?
# this program makes a kitten
# the kitten says what you tell it to on the command line
# you need to escape chars, this program isn't very smart...
# bad perl code at it's best!

# robot finds kitten
# http://www.robotfindskitten.org
# version 0.1 Adam Northern
# anorthern@redhotlunix.com

$kitten[0] = " |\\_/|    ";
$kitten[1] = " |o o|__  ";
$kitten[2] = " --*--__\\ ";
$kitten[3] = " C_C_(___)";

$whatToSay = join(" ", @ARGV);
$amountOfChars = length($whatToSay);

$text[0] = ' /';
for($i = 0; $i < $amountOfChars; $i++) {
	$text[0] .= '-';
}
$text[0] .= '\\';
$text[1]  = ' |';
$text[1] .= $whatToSay;
if (length($whatToSay) != $amountOfChars) {
	for ($i = 0; $i < $amountOfChars; $i++) {
		$text[1] .= " "
	}
} 
$text[1] .= '|';
$text[2] = ' \\---\\ /';
for($i = 6; $i < $amountOfChars; $i++) {
	$text[2] .= '-';
}
$text[2] .= '/';
$text[3] = '     /';
for($i = 0; $i < 4; $i++) {
	$text[$i+4] = $kitten[$i];
}
for($i = 0; $i < 8; $i++) {
	print $text[$i] . "\n";
}

