Perl: add step4_if_fn_do

- Move string/printing tests to the bottom of tests/step4_if_fn_do

1 files changed, 6 insertions, 1 deletions

diff --git a/perl/reader.pm b/perl/reader.pm
index ecbf522..35af099 100644
--- a/perl/reader.pm
+++ b/perl/reader.pm
@@ -30,7 +30,12 @@ sub read_atom {
     my $token = $rdr->next();
     given ($token) {
         when(/^-?[0-9]+$/) { return Integer->new($token) }
-        when(/^"/) { return String->new(substr $token, 1, -1) }
+        when(/^"/) {
+            my $str = substr $token, 1, -1;
+            $str =~ s/\\"/"/g;
+            $str =~ s/\\n/\n/g;
+            return String->new($str)
+        }
         when(/^nil$/) { return $nil }
         when(/^true$/) { return $true }
         when(/^false$/) { return $false }