open F, "<text.txt";
while (<F>){
print "Result : $1 " if($_ =~ m/particularly(.*)/);
}