Use of uninitialized value in substr at (eval 7) line 1, <STDIN> line 2.