use strict; 
use warnings; 
 
my $words = "abc+, perl+, word, this, that+"; 
 
my @wordsArray = split(/\,\s*/, $words); 
 
foreach(@wordsArray) 
{ 
        print("$_ \n") if($_ =~ m/\w+\+$/); 
}