use strict; use warnings; my ($first,$second,$third); { local $/ = ''; ($first, $second, $third) = ; } printf "First: %s", $first; printf "Second: %s", $second; printf "Third: %s", $third; __DATA__ this will go into the variable called first second here tail end charlie