But perhaps for edification:

$date =~ /\b(\d{4})(\d{2})(\d{2})\b/;
print "$1 $2 $3";
[download]

Will print ya "2003 03 11"
Simple if statement will determine what month in word format $2 is!

---
"There is more in heaven and earth than is dreamt of in your philosophy"