$^I=""; undef $/; while(<>) { print "hello:\n" }