#! /usr/bin/perl/

use strict;my $string="~^^..o^.(_)^X.#^~^^..o^.//^X.#^~^^..o_r^.(_.^X.#^~^^..o.r^.//^X.#^~^^..o_er^.(_.^X.#^~^^..o.er^.//^X.#^~^^..o_ker^.(_.^X.#^~^^..o.ker^.//^X.#^~^^..o_cker^.(_.^X.#^~^^..o.cker^.//^X.#^~^^..o_acker^.(_.^X.#^~^^..o.acker^.//^X.#^~^^..o_hacker^.(_.^X.#^~^^..o.hacker^.//^X.#^~^^..o__hacker^.(_.^X.#^~^^..o._hacker^.//^X.#^~^^..o_l_hacker^.(_.^X.#^~^^..o.l_hacker^.//^X.#^~^^..o_rl_hacker^.(_.^X.#^~^^..o.rl_hacker^.//^X.#^~^^..o_erl_hacker^.(_.^X.#^~^^..o.erl_hacker^.//^X.#^~^^..o_Perl_hacker^.(_.^X.#^~^^..o.Perl_hacker^.//^X.#^~^^..o__Perl_hacker^.(_.^X.#^~^^..o._Perl_hacker^.//^X.#^~^^..o_r_Perl_hacker^.(_.^X.#^~^^..o.r_Perl_hacker^.//^X.#^~^^..o_er_Perl_hacker^.(_.^X.#^~^^..o.er_Perl_hacker^.//^X.#^~^^..o_her_Perl_hacker^.(_.^X.#^~^^..o.her_Perl_hacker^.//^X.#^~^^..o_ther_Perl_hacker^.(_.^X.#^~^^..o.ther_Perl_hacker^.//^X.#^~^^..o_other_Perl_hacker^.(_.^X.#^~^^..o.other_Perl_hacker^.//^X.#^~^^..o_nother_Perl_hacker^.(_.^X.#^~^^..o.nother_Perl_hacker^.//^X.#^~^^..o_another_Perl_hacker^.(_.^X.#^~^^..o.another_Perl_hacker^.//^X.#^~^^..o__another_Perl_hacker^.(_.^X.#^~^^..o._another_Perl_hacker^.//^X.#^~^^..o_t_another_Perl_hacker^.(_.^X.#^~^^..o.t_another_Perl_hacker^.//^X.#^~^^..o_st_another_Perl_hacker^.(_.^X.#^~^^..o.st_another_Perl_hacker^.//^X.#^~^^..o_ust_another_Perl_hacker^.(_.^X.#^~^^..o.ust_another_Perl_hacker^.//^X.#^~^^..o_Just_another_Perl_hacker^.(_.^X.#^~^^..o.Just_another_Perl_hacker^.(_)^X.#^~^^..o..Just_another_Perl_hacker^.(_)^X.#^~^^..o...Just_another_Perl_hacker^.(_)^X.#^~^^..o....Just_another_Perl_hacker^.(_)^X.#^~^^..o.....Just_another_Perl_hacker^.(_)^X.#^~^^..o......Just_another_Perl_hacker^.(_)^X.#^~^^..o......Just_another_Perl_hacker^.(_)^X.#^~^^..o......Just_another_Perl_hacker^.(_)^X.#^~^^..o......Just_another_Perl_hacker^.(_)^X.#^~^^..o......Just_another_Perl_hacker^.(_)^X.#^~^^..o......Just_another_Perl_hacker^.(_)^X.#^~^^..o......Just_another_Perl_hacker^.(_)^X.#^~^^.........Just_another_Perl_hacker^^...^^";my $charToPrint;sub printIndividual { my $n = shift; $charToPrint=substr($string,$n,1); if ($charToPrint eq ".") { print " ";}elsif($charToPrint eq "^"){print "\n";}elsif ($charToPrint eq "~"){select (undef,undef,undef,.2);system (CLS); } else{print "$charToPrint";}if($n<length($string)){printIndividual(($n+1));}}printIndividual (0);