Help for this page

Select Code to Download

Select or download this

#!/opt/perl-5.18/bin/perl
eval 'exec /opt/perl-5.18/bin/perl -S $0 ${1+"$@"}'
...
    ($Fld1,$Fld2,$Fld3,$Fld4) = split(' ', $_, -1);
    print $Fld4;
}