dpich@m6400-vb:~/Documents$ perl ./xml.pl
Use of uninitialized value $. in regexp compilation at ./xml.pl line 6.
dpich@m6400-vb:~/Documents$