while ($var =~ /(.*\n|.+)/g) {
   ...
}