求助，如何删除多余字符

[Lucifer-He]

大家好，初涉Perl，遇到棘手问题，特来求教

上来我就直接举例啦，怕自己说不明白 ：（

现有一string如下：
a, b, c, d xxxxx, e, f , g, h
希望通过处理得到如下string
a, b, c, d, e, f , g, h
也就是希望把xxxxx删除，以及d后面的空格一起删除
请问如何操作？

我想过用~s 来替换xxxxx，但是不知道怎么把之后的空格删除， 特来求教

[wangshun424]

s/(\s+\w{1})\s+(\w+)/$1/g

[Lucifer-He]

下面是我刚实现用的方法：
$line = "a, b, c, d xxxxx, e, f , g, h";
$line = ~s/\s*(xxxxx)//g;
print $line;

貌似这样就可以了，不知道有没有什么错误？
楼上的我没看懂。。。

[winton_adlsy]

自己试了一下
#! perl -w
use strict;

my $_ = "a, b, c, d xxxxx, e, f, g, h";
s/\sxxxxx//;
print $_."\n";