or download this
perl test.pl
/myfolder/incoming/RIE.06242011.txt
...
Use of uninitialized value $line in scalar chomp at test.pl line 17, <
+IN> line 22.
Use of uninitialized value $line in substr at test.pl line 19, <IN> li
+ne 22.
Use of uninitialized value $line in split at test.pl line 25, <IN> lin
+e 22.