The problem is that Perl is trying to substitute $date_more_filename, not $date.
you want ${date}_more_filename.
use strict would have caught this.

-pete
"Worry is like a rocking chair. It gives you something to do, but it doesn't get you anywhere."