well, as the others said about the underscore being interpreted, you'd have to seperate it with the . operator or escape it, and if you want the date after MON but before .DOC ala magnus' observation, heres a quicker, one line solution...regexes to the rescue. >:-]~

$mon =~ s/(.+)\.(.+)/$1\_$date\.$2/;
[download]

______________________________________________
When I get a little money, I buy books. If I have any left over, I buy food and clothes.
-Erasmus