poem
bv
<p>[http://www.youtube.com/watch?v=NC_gkcplz_4|Hint]</p>
<c>
#!/usr/bin/perl
use 5.10.0;use strict;
my ($ice_cream, $cake, @cookies);
verse1( $ice_cream, $cake & $cake );
verse2( $ice_cream & $cake );
verse3( split /,/, "slip,"x3 . "slide" );
verse4();
verse2( $ice_cream and $cake );
map { s/_/ /g; say $_," ice cream n cake" }
qw( Now_who_dat_is_with_the Party_aint_live_without_the Whatcha_want_some All_the_kids_like );
verse2( "$ice_cream and $cake" );
verse3( ("slip,"x3 . "slide") =~ m/(\w*)/g );
verse4();
verse2( $ice_cream && $cake );
verse1( $ice_cream, $cake + $cake );
($ice_cream and @cookies) xor eat($ice_cream, @cookies);
sub verse1 {
for ( 1 .. 4 ) {
say $_[0] and $_[1];
}
}
sub verse2 {
for ( 1 .. 4 ) {
say $_[0];
do{ $_[0] };
}
}
sub verse3 {
say time, join(', ', @_);
say join(', ', @_[0..2]) and $_[3] for (1 .. 2);
$SIG{STOP} = sub { sleep 1; TAG_TEAM: }
}
sub verse4 {
my $boy;
$SIG{ALRM} = sub { say "slip n slide" };
ride( $boy ), kill (ALRM, $$) for (1 .. 3);
sleep 1; map { $_++ } ($ice_cream, $cake);
}
sub ride { say "Whee!" };
sub eat {
say "YUM!";
}
__END__
</c><!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-790588">
<code>print pack("A25",pack("V*",map{1919242272+$_}(34481450,-49737472,6228,0,-285028276,6979,-1380265972)))</code>
</div></div>