while (<>) {
	my $val='';
	if (/^\#:lav/) {
		$_.=<>;
		$val.="$_\n";
		while (/^#:eof/m) {
			$val.="$_\n";
			$_.=<>;
		}
	}
	print $val;
}