Help for this page

Select Code to Download


  1. or download this
    use strict;

...
my ($one, $two, $three) = split /\s+/, $string;

print "$one\n$two\n$three\n\n";
  2. or download this
    /home/jptxs > perl -w stripNsplit
this
...
other

/home/jptxs >