$ perl -MO=Deparse -e'while ($symbol = ) { chomp($symbol) }' while (defined($symbol = )) { chomp $symbol; } -e syntax OK