foreach (@trt_files)
{
    s/date/$date/;
    print "$_\n";
}