Here's a two step reg. expression that takes care of that problem:

$line = "xaxlxxxfxixex";
$line =~ s/(x(\w)x)/$2/g;
$line =~ s/x$//;
[download]