my $input = join ('', <>);