LINE: while (<>) { #readline into $_; diamond operator ...... } continue { print or die "-p destination $!\n"; }