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
[download]