while(<>) {
	s/[\r\n]//g;

	@field = split( /,/, $_ );

	for ( $i = 0; $i <= $#field; $i++ ) {

		$len = length( $field[$i] );

		if ( substr( $field[$i], 0, 1 ) eq "\"" ) {
			$tmpstr[$i] = substr( $field[$i], 1, $len - 1 );
		}
		else {
			$tmpstr[$i] = $field[$i];
		}

		$len = length( $tmpstr[$i] );

		if ( substr( $tmpstr[$i], $len - 1, 1 ) eq "\"" ) {

			$tmpstr[$i] = substr( $tmpstr[$i], 0, $len - 1 );
		}

	}

	for ( $i = 0; $i < $#field; $i++ ) {
		printf( "%s\t", $tmpstr[$i] );
	}
	
	printf( "%s\n", $tmpstr[$#field] );
}
exit;