Revision 337 (by dpavlin, 2004/06/10 19:22:40) new trunk for webpac v2
 
#!/usr/bin/perl

# tools for ISO 2709 format
# 

# field sep is ^^ (char val 30)
# record sep is ^]^J (char val 29 and newline)

$/ = "\035\n";

while (<STDIN>) {
	print;
	last if $. > 20;
	# chomp;
	# y/\n\t\036/  \t/;
	# print $_, "\n";
}