my %whitespace = (
          "\n" => "n",
          "\t" => "t",
          "\r" => "r",
          "\f" => "f",
);

my $fixid =~ s/(\s)/\\$whitespace{$1}/g;