Help for this page

Select Code to Download


  1. or download this
    use Data::Dump qw{dump};

...
Line1 Word Something
Line2 Other Word
  2. or download this
    c:\test>783947.pl
[6, 6, 6, 38]
...
[2]
[6]
[38]
  3. or download this
    #! perl -sw
use 5.010;
...
__DATA__
Line1 Word Something
Line2 Other Word
  4. or download this
    c:\test>783947.pl
Use of uninitialized value in join or string at ...
6::6:38
6 6 6 38