#!/usr/bin/perl
while (<>) {
    @token = split/\s+/;
    print "insert into person values (NULL";
    for ($i = 0; $i < 7; $i++) {
	$field = $token[$i];
	$field =~ s/\\b/ /g;
	print ", \"$field\"";
    }
    print ");\n";
}
