$/ = ""; while (my $para = ) { print "*" x 20, "\n"; print $para; print "*" x 20, "\n"; } __DATA__ hello world bye hello world2 bye2 end