#!usr/bin/perluse warnings;use strict;my $string = "this is a test.";my @words = split(/ /, $string, 3);print "\n";print "$_\n" foreach ( @words );