use Data::Dumper;

my $find="REE (.*) vinoth";

my $replace= "ree $1 VINOTH";

my $var = "REE is alias of vinoth";

$var =~ s/$find/$replace/ee;

print Dumper $var;

##</code><code>##

 $VAR1 = '';