Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl -w
use strict;
...

   ( $first, $middle ) = split / / , $first ;
   print "last:($last)  first($first) middle($middle)\n";

Select or download this

gonzo:/export/home/fredk/: ./bar.pl 
last:(thumb)  first(tom) middle()
Use of uninitialized value at ./bar.pl line 11.
last:(thumb)  first(tom) middle()