seq 1 30 | perl -aple '$_.="Fizz" unless $F[0] % 3' | perl -aple '$_.="Buzz" unless $F[0] % 5' | perl -ple 's/\d+(\w+)/$1/'