$test_string =~ s/\Q[A-Z]{3}\E([A-Z]{3})/$1/;