Select Code to Download

use strict;
use warnings;
...
my @items = $str =~ /\w+/g;

print "$_\n" for @items;

item1
item2
item3
item4