Revision 237 (by dpavlin, 2004/03/08 17:43:12) initial import of openisis 0.9.0 vendor drop
 
#!/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";
}