TMTOWTDI:

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

Gives:

Pranab Nagendra mohan
[download]