sunshine dot pl

[ciderpunx]

It's a really lovely day here in Oxford, UK!

#!/usr/bin/perl
# sunshine.pl, by charlie

foreach (@sunny, @march_day) { my $smile++ }
foreach (@cherry, @blossom)  { our $world = $lovlier }
foreach (@spring, @daffodil) { local $park = `more beautiful` }

until   ($nimbostratus++ and $drizzle++) {sub merge { $us and $once_mo
+re; return }}
tell    ($work,$you,$are,$ill);
split   /the/, $joint;
seek    $comfy,$place,$somewhere and $get . cos($y);
chomp   $spring_greens; 
pop     @a_beer;
write   $perl or read $a, $good, $novel;
study;  $the_sky and $laze; $daydream or $ponder;

{($let, $the, $good, times, $roll)} while ($the) { s/un/ shin/es };

[greatshots]

#!/usr/bin/perl
# sunshine_here.pl, by greatshots

if ( $ARGV[0] eq 'March to June' ) { #Summer
  foreach (@days, @these_days) { my $smile++ if /atleast_drizzles/ }
  pop @a_beer            if ( $gender eq 'male' );
  pop @a_juice           if ( $gender eq 'female' );
}
if ( $ARGV[0] eq 'June to October' ) { #Rainy
  foreach (@days, @these_days) { mfruiy $smile++ if /sunshines/ }
  push @a_pattai_sarakku  if ( $gender eq 'male' );
  push @masala_tea        if ( $gender eq 'female' );
}
if ( $ARGV[0] eq 'November to March' ) { #Winter
  foreach (@days, @these_days) { my $smile++ if /sunshines/ }
  get @a_beedi            if ( $gender eq 'male' );
  get @a_spicycorn        if ( $gender eq 'female' );
}

[Sixtease]

*applauds*