Select Code to Download

#!/usr/bin/perl -w

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

print $a;

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

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