Select Code to Download

my $str = 'Debashis Pranab roy Nagendra roy murali mohan roy';
my @hits = $str =~ m/\b([[:alpha:]]+)\s+\broy\b/g;
print "@hits\n";

Pranab Nagendra mohan