my $s=join '',<>;