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