seq 1 100 \
| perl -aple '$_.=" F" unless $F[0] % 3' \
| ruby -aple '$_+=" B" if $F[0].to_i % 5 == 0' \
| awk 'NF==2{print $2}NF==1{print $1}' \