my $str = "This is my program";
my @words = split ' ', $str;