@Lines = split /\W+/, $Contents;

While (<@Lines>)
{
  $Contents ~= s/$_//;
}