%ctrl_chars = ("\n" => '\n', "\t" => '\t', "\r" => '\r'); $line =~ s/$_/$ctrl_chars{$_}/ for (keys %ctrl_chars);