my $data = <STDIN>;
# or, if you don't want the newline at the end
chomp(my $data = <STDIN>);