#!/usr/bin/perl -w

use strict;
use diagnostics;

for (</home/www/*/logs/weekly>);

my $a=$_;

substr($a,-7)=" ";

print $a;