Select Code to Download

$ more replace.pl 
#!/usr/bin/perl -w -pi.orig
...
Use of uninitialized value within %1 in substitution iterator at ./rep
+lace.pl line 3, <> line 1.
$ more test.txt
(an empty line)