$ perl -MPOSIX -e'...' [download]
In reply to Re^2: extracting year of a file by graff in thread extracting year of a file by Banshee06