local $/;
my $all=<>;