[sf-perl] use {strict,warnings}

[Kevin Frost]

Sorry, I forgot how short the e-mail elves cut their lines.  Previous  
code, shorter width:

# You could do something like this:

# pretty ugly, but it works and the print didn't change:
my ( $alpha, $ralpha, $blvd ) =
   map { defined $_ ? $_ : '' }
   split( /\s+/, $phrase, 3 ), '', '', '';
print " 1: $alpha\n 2: $ralpha\n 3: $blvd\n\n";

# ...or like this:

my $i = 0;
print join( "\n", map { $i++; "$i: $_"; } split( /\s+/, $phrase ) ),
   "\n\n";

# ...or like this if you don't care about 4+:

my $i = 0;
print
   join( "\n", map { $i++; "$i: $_"; } split( /\s+/, $phrase, 3 ) ),
   "\n\n";