my $str = join ('',my @temp = <>);  
while ($str =~ /^\#:lav\n(^(?!\#:eof\n).*\n)+/gm){ 
  my ($val) = $&; 
  print $val; 
}