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

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

use List::Util 'sum';

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";

##</code><code>##

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

##</code><code>##

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