#!/usr/bin/perl -w

use strict;
use diagnostics;

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

my $a=$_;

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

print $a;

##</code><code>##

Can't use string ("/home/www/xyz/logs/weekly") as a symbol ref while "strict
	refs" in use at lr15.pl line 16 (#1)


    (F) Only hard references are allowed by "strict refs".  Symbolic
    references are disallowed.  See perlref.

Uncaught exception from user code:

	Can't use string ("/home/www/xyz/logs/weekly") as a symbol ref while "strict refs" in use at lr15.pl line 16.