while (<>) {
    chomp;
    print collect( $_ );
}

sub collect {
    local @ARGV = @_;
    join '', <>;
}