sub alone{print shift} sub ##################################################### survive{alone "\n...or live like this for ever"} alone 'i am ';@falling =('deeper',"than ever\n"); $destruction = 'Simple'; $sex = 'use '; sub for{love} sub but{alone "more"} @drugs = split(//,'HELP');&but;alone " afraid ".@falling[1]; sub find_help{"help my".(shift)."\n"} sub self{"must ".find_help(shift)} my $depression = 'hell'; $options = $sex.join('W',@drugs[2..3])."::".$destruction; eval $options; get($depression.'://www.depressedanon.com/')=~ /psychology, (.*?)-help/ unless !($depression=~s/ell/ttp/); @try_T = split(/my/,self($destruction)); alone "i ".eval "\&$1('$1')";@try_T[0] =~ s/\s/ find /;"peace" unless alone "i ".@try_T[0]; survive