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