#!/usr/bin/perl -w

use strict;
my $str_in = 'test("test';
my $str_out = $str_in;
#$str_out =~ s/"t/"GC_t/;
$str_out =~ s/"/"GC_/;
print "string 1: $str_in\n";
print "string 2: $str_out\n";