Вроде того?
perl -e "for(1..5) {print $/ unless $_ % 1; print 'X ' x 2}"