while (<>) { your code here }
continue { print $_ }