Select Code to Download

$ perl -E 'say for "qwe", "qwe\n"'
qwe
qwe

$ perl -E 'say "|$_|" for "qwe", "qwe\n"'
|qwe|
|qwe
|

    my %big_image = map +(fc($_) => 1), $opt{big} ? @{$opt{big}} : ();
    for my $cross_file (@cross_files) {
...
        my $class = 'svg_group';
        $class .= ' right' unless exists $big_image{fc $text};
    }

$ perl -E 'my %opt = ( big => [] ); say $opt{big}'
ARRAY(0x600003a90)

$ perl -E 'my %opt = ( big => [] ); say 0+@{$opt{big}}'
0