use strict;
use warnings;
use Data::Dumper;

my $user_input = <<EOI;
first para
some text

second para
more text
EOI

local $/ = '';
open my $string_handle, '<', \$user_input;
my @para = <$string_handle>;
close $string_handle;
chomp @para;

print Dumper \@para;