#!/usr/bin/perl -w
use strict;

# qfl
# Paul Jungwirth
# Quotes tab-delimited text fields

while (<STDIN>) {
	# tr/"'/'"/; # No, this converts apostrophes, too.
	s/'(\s)/\f$1/g;
	s/(\s)'/$1\f/g;
	s/"/'/g;
	s/\f/"/g;
	print;
}