*main::foo = \$/; print ">$main::foo<";