Regular Expression Perl

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