Select Code to Download

 use Data::Dumper;

my $find="REE (.*) vinoth";
...
$var =~ s/$find/$replace/ee;

print Dumper $var;