#!/usr/bin/perl
# your code goes here
use strict;
my $str = 'Birla Sun Life Global Real Estate Fund - Retail Plan - Direct Plan - Growth Option\'; ';
my $regex = qr/(\w+)\s+Plan(?!.*Plan)/p;
if ( $str =~ /$regex/g ) {
}
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQoKdXNlIHN0cmljdDsKCm15ICRzdHIgPSAnQmlybGEgU3VuIExpZmUgR2xvYmFsIFJlYWwgRXN0YXRlIEZ1bmQgLSBSZXRhaWwgUGxhbiAtIERpcmVjdCBQbGFuIC0gR3Jvd3RoIE9wdGlvblwnOyAgJzsKbXkgJHJlZ2V4ID0gcXIvKFx3KylccytQbGFuKD8hLipQbGFuKS9wOwoKaWYgKCAkc3RyID1+IC8kcmVnZXgvZyApIHsKICBwcmludCAiJDEiOwp9Cg==