print "Bob was $frank \"yes!\" around"."No Way!", $foo, "\n"; #or print "joe" if $bar; #### /print[^;]*;/ #### if($foo){ print "Bar" } # or $foo= "Ask frank to print the report"; #### print "Foo\n" while &func($bar);