my @lines = (<>);
my $text = join "", @lines;