1 #!/usr/bin/perl
      2 
      3 use strict;
      4 
      5 my $string = 'test("test ... bla bla bla")';
      6 $string =~ s/test\("test/test\("GC_test/;
      7 
      8 print $string."\n";