Select Code to Download

>perl -wle "my $date='20080501'; $date =~ s/^(\d{4})(\d{2})(\d{2})$/$1
+-$2-$3/;print $date"
2008-05-01

print "I think \$date is [$date]\n";