Select Code to Download

    '"foo" & "bar"'

    '" He said ""maybe"" "'

    '"foo" & "bar"' -> '<"foo"> & <"bar">'

    #!/usr/bin/perl -w
...
    while (my($input, $result) = each %strings) {
        is(find_quote($input), $result, "for string:\t" . "'$input'");
    }