Thanks a lot

here's my easy code

#!/usr/bin/perl
use strict;
use warnings;

my $string ="THIS IS OUTSIDE (THIS IS INSIDE)";

print "\n";
print "string: $string";
print "\n";

#(my $new_string = $string) =~ s/^([^(]*)/THIS_IS_OUTSIDE_CAPTURED/g;
(my $new_string = $string) =~ s/^([^(]*)//g;

print "\n";
print  "new_string: $new_string";
print "\n\n";
[download]