#! /usr/bin/perl
use warnings;
use strict;

my $string = 'abc def xyz';
# my @array = split ' ', $string;
for my $part (split ' ', $string) {
    print "<$part>\n";
}