Select Code to Download

#! perl -slw
use strict;
...
@array = grep{ $_ } @array;

print scalar @array;

#! perl -slw
use strict;
...
}

print scalar @array;