my $input = do { binmode STDIN; local $/; ; };