seq 1 30 | perl -ple '$_.="Fizz" unless $_ % 3'