perl脚本中匹配替换

                 ##################################################################
                 # shao.bing take off dial_prefix+prefix_dial from $CLphone_number
                 ##################################################################
                                    $stmtA = "SELECT dial_prefix FROM vicidial_campaigns where campaign_id = '$CLcampaign_id';";
                                    $sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
                                    $sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
                                    $sthArows=$sthA->rows;
                                    if ($sthArows > 0)
                                        {
                                            @aryA = $sthA->fetchrow_array;
                                          $dial_prefix    =            $aryA[0];
                                         }
                                    $sthA->finish();
                                    
                                    $stmtA = "SELECT prefix_dial FROM system_settings ;";
                                    $sthA = $dbhA->prepare($stmtA) or die "preparing: ",$dbhA->errstr;
                                    $sthA->execute or die "executing: $stmtA ", $dbhA->errstr;
                                    $sthArows=$sthA->rows;
                                    if ($sthArows > 0)
                                        {
                                            @aryA = $sthA->fetchrow_array;
                                          $prefix_dial    =            $aryA[0];
                                         }
                                    $sthA->finish();                                    
                                    
                                    $PREFIX = $dial_prefix.$prefix_dial;

                                    $CLphone_number =~ s/$PREFIX//g; ##这里是用空格匹配替换到 $CLphone_number中$PREFIX

例子：

$a="fffff'dddddd";
$a =~ s/'//g;
print $a;
#fffffdddddd