foreach my $i(1..20){$i%15?($i%5?($i%3?say $i:say"fizz"):say"buzz"):say"fizz buzz";}

#String found where operator expected at ch-2.pl line 1, near "say"fizz""
#String found where operator expected at ch-2.pl line 1, near "say"buzz""
#String found where operator expected at ch-2.pl line 1, near "say"fizz buzz""
#syntax error at ch-2.pl line 1, near "say"fizz""
#Execution of ch-2.pl aborted due to compilation errors.