$/ = "--"; while () { chomp; @_ = split /\n/, $_; print "Second Line: $_[1]\n"; } __DATA__ multi line--data goes here