# bar
use Foo;

print "Hello World",$/;

#require 'bar2';  # source is not filtered  ;-(

{
 local $/;
 open my $handle,'<','bar2' or die $!;
 $source = <$handle>;
}
#eval $source;  # source is not filtered  ;-(
eval 'use Foo;'.$source;  # even with importing again, source is not filtered  ;-(