Monday, December 03, 2007

Perl Script to Fix Your Life


var $job=qw(money);
var $life=$job;
$life=s/money/motivation/gi;
@life=($life);
push @life, 'inspiration';
push @life, 'freedom'; # TODO: add more
die unless @life;
return \@life;

No comments:


Sports News: CBSSports.com