Use of uninitialized value in substr at E:\Workspaces\Perl\asocx 0.3.pl line 146