sub print_sucky_bunny {
   my ($client) = shift @_;
   print $client "\n\r             ";
   print $client "\n\r                            /|      __ ";
   print $client "\n\r                           / |   ,-~ / ";
   print $client "\n\r                          Y :|  //  / ";
   print $client "\n\r                          | jj /( .^ ";
   print $client "\n\r                          >-\"~\"-v\" ";
   print $client "\n\r                         /       Y ";
   print $client "\n\r                        jo  o    |           I am a sucky ASCII Art bunny";
   print $client "\n\r                       ( ~T~     j           And i am filling in temporarily";
   print $client "\n\r                        >._-' _./            So if you dont like me";
   print $client "\n\r                       /   \"~\"  |          You can suck my ****";
   print $client "\n\r                      Y     _,  | ";
   print $client "\n\r                     /| ;-\"~ _  l ";
   print $client "\n\r                    / l/ ,-\"~    \\ ";
   print $client "\n\r                    \\//\\/      .- \\ ";
   print $client "\n\r                     R        /    Y ";
   print $client "\n\r                     O       I     ! ";
   print $client "\n\r                      W      _\    /\"\ ";
   print $client "\n\r                    (\" ~----( ~   Y.  ) ";
}

##</code><code>##

sub create_sucky_bunny {
   my $bunny;
   $bunny .= "\n\r             ";
   $bunny .= "\n\r                            /|      __ ";
   $bunny .= "\n\r                           / |   ,-~ / ";
   $bunny .= "\n\r                          Y :|  //  / ";
   $bunny .= "\n\r                          | jj /( .^ ";
   $bunny .= "\n\r                          >-\"~\"-v\" ";
   $bunny .= "\n\r                         /       Y ";
   $bunny .= "\n\r                        jo  o    | ";
   $bunny .= "\n\r                       ( ~T~     j ";
   $bunny .= "\n\r                        >._-' _./  ";
   $bunny .= "\n\r                       /   \"~\"  | ";
   $bunny .= "\n\r                      Y     _,  | ";
   $bunny .= "\n\r                     /| ;-\"~ _  l ";
   $bunny .= "\n\r                    / l/ ,-\"~    \\ ";
   $bunny .= "\n\r                    \\//\\/      .- \\ ";
   $bunny .= "\n\r                     R        /    Y ";
   $bunny .= "\n\r                     O       I     ! ";
   $bunny .= "\n\r                      W      _\    /\"\";
   $bunny .= "\n\r                    (\" ~----( ~   Y.  ) ";
   
   return $bunny;
} 

##</code><code>##

my $ascii_bunny = create_bunny();

# or

print $client create_bunny();

##</code><code>##

my $foo = "bar
baz
qux
";                # look ma, no \n's!!

##</code><code>##

my $foo = q(bar
baz
qux
);

##</code><code>##

sub create_bunny {
   my $spaces = ' ' x 20;
   my $bunny  = q{
        /|      __ 
       / |   ,-~ / 
      Y :|  //  / 
      | jj /( .^ 
      >-"~"-v" 
     /       Y 
    jo  o    |     I'm an ASCII Art bunny
   ( ~T~     j     And i'm fillin' in temporarilay
    >._-' _./      But at least i can that i
   /   "~"  |      Was created in a more Perl-ish way!
  Y     _,  |      (did i just say that out loud?)
 /| ;-"~ _  l 
/ l/ ,-"~    \ 
/ / /      .- \ 
 R        /    Y 
 O       I     ! 
  W      _\    /"\ 
(" ~----( ~   Y.  ) 
   };

   $bunny =~ s/(.*)/$spaces$1\r/g;

   return $bunny;
}

print $client create_bunny();