#!/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)#...
In reply to Someday I'll find a Perl by life_monger
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |