#!/usr/bin/perl


my $text = "red 1 green 3 blue";
my @result1 = split /red|green|blue/, $text;
print join ";", @result1;
print "\n";
my @result2 = split /red|green|blue/, $text, -1;
print join ";", @result2;
print "\n";
my @result3 = grep { /\S/ } split /red|green|blue/, $text;
print join ";", @result3;