Select Code to Download

$ perl -e 'print “\n”;'
Unrecognized character \xE2; marked by <-- HERE after print <-- HERE n
+ear column 7 at -e line 1.

#!/usr/bin/env perl

...
my @input = qw{-222 -221 -21 0 1 1 2 3 5 8 13 21 34 55 89 144};

print join(' ', map +(sum(split //, abs) % 2 ? $_ : ()), @input), "\n"
+;

-221 -21 1 1 3 5 21 34 89 144

sub oddDigitSum {
    my (@nums) = @_;
    my @ans;
    for (@nums) {
    ...