Help for this page

Select Code to Download


  1. or download this
    my ($first, $sort, $second, $tail) = split(/\s+/, $_);
  2. or download this
    m/^(\w+)\s+(\d+)\s+(\w+)(.*)$/
  3. or download this
    use strict;
use warnings;
...
}

print "$buffer";