programming-examples/perl/Statement/Mixed diamond operator with for loop condition.pl

for (print "Type q to quit.\n"; <> ne "q\n"; print 
    "Don't you want to quit?\n") {}