#!/usr/bin/perl -w

use strict;

my $little; eval for <DATA>__DATA__

sub someday{print $"}; sub oneday{print $/}
sub when{my $bar if($little);$bar++;shift for(1..$bar++);print shift;$
+bar++}

someday if & when qw(I'm Just)
someday if & when qw(One thing leads to Another)
someday if & when qw(I do find me a very wise Perl)
oneday if & when qw(I do find my path and become Just Another Perl Hac
+ker)#...
[download]