$UNIVERSAL::TRUTH = ('elusive', DATA);

my (@son, $you, $are) = (nothing_more_than($a_boy), not $a_man);
the_way_to_seek($UNIVERSAL::TRUTH, @son);
use strict;
for ('all', 'your', 'programming') {
    2 * tell if $you =~ /screwed up/;
}

if ($you =~ /live fast/) { $you => die 'young' }
else { $you = 'live long, and prosper' }
my ($spock, $quotes) = (do { not 'impress'.$you }, do { 'they?' });

seek FORTUNE, stat'us', int'elligence' for ($you, $are, my $hope);

my $goodness;
time, $you, tied $::the_knot or dump THAT_GIRL if $you =~ /have any sense/;
sort ('out','your','feelings') and push @son for 'what you want';

sub nothing_more_than { 0 + $_[0] }
sub the_way_to_seek { seek $_[0], $_[1], $_[2] }