open (IF, "<$thefile");
	$rawstring = (<IF>);
close (IF);

while (length($rawstring) > 0) {
	($item, $rawstring) =~ split/\;/,$rawstring;
	print "$item\n";
}