Line 1
Line 2
Line 3
    Author

Line 1
Line 2
Line 3
    Author

...

##</code><code>##

local $/ = '';
my @peoms = <DATA>;
my $number = int(rand(@poems)) + 1;

print $peoms[$number];
# or
my ($line1, $line2, $line3, $author) = split "\n\s*", $poems[$number];
print "   $line1\n$line2\n   $line3\n\t$author\n";

__DATA__
Line 1
Line 2
Line 3
    Author

...