s/\b42\b,?// && s/,$//;

##</code><code>##

    join ",", grep {$_ != 42} split /,/, $string