SPUG:Help with substitution

[Nord, Chris]

I am having trouble with substitution when the variable $pattern
contains non-word characters. See example 1. Ideas on how to make
example 1 work like example 2?  I have tried a few variations when
creating $pattern, but so far have not got the substitution to work.

Thanx,

Chris Nord
AT&T Wireless Services
WNS Call Routing Translations
office 425 288 2031
fax     425 806 3690

###################################################

#! /bin/perl -w

$data = '(PREXLIDX 501) ( CARRMNC (TEST)$)$ $';
$pattern = '( CARRMNC (TEST)$)';

## example 1
($new_data = $data) =~ s/$pattern/something new/;
print $new_data,"\n";

# output: (PREXLIDX 501) ( CARRMNC (TEST)$)$ $


## example 2
($new_data = $data) =~ s/\( CARRMNC \(TEST\)\$\)/something new /;
print $new_data,"\n";

# output: (PREXLIDX 501) something new $ $

###################################################