use feature 'say';
use List::MoreUtils 'part';

@array = (1, 2, 3, 4, 2, 1, 2, 0, 1, 0, 0);

say join ' ', map { @$_ } part { !!$_ } @array;