Select Code to Download

#!/usr/bin/perl

...
tinker
sailor

$ ./fix.pl 
Global symbol "$lines" requires explicit package name at ./fix.pl line
+ 5.
...
Global symbol "$lines" requires explicit package name at ./fix.pl line
+ 6.
Global symbol "$word" requires explicit package name at ./fix.pl line 
+8.
Execution of ./fix.pl aborted due to compilation errors.

#!/usr/bin/perl

...
tinker
sailor

$ ./fix.pl 
6
...

#!/usr/bin/perl

...
tinker
sailor

$ ./fix.pl 
t
...
t
s