Help for this page
while (<DATA>) { chomp; warn "<$_>"; } warn "One"; ... warn "Four"; __DATA__ Zero
<Zero> at - line 1, <DATA> line 1. One at - line 2, <DATA> line 1. Two at - line 4, <DATA> line 123. Three at - line 6. Four at - line 8, <DATA> line 456.