$data = join '', ; print "$_\n" for $data =~ m[\@include\s('[^']+'|"[^"]+"|.+?(?