{"code":"    # Check if it's a valid integer\n    if ($s !~ /^-?\\d+$/) {\n        handle_error();\n    }\n    \n    return int($s);\n}\n\nsub convert {\n    my ($s) = @_;\n    \n    if (length($s) == 0) {\n        handle_error();\n    }\n    \n    my @v;\n    my @parts = split(',', $s);\n    \n    foreach my $part (@parts) {\n        push @v, check($part);\n","language":"perl","options":["lily","perl","racket","lisp"]}