#!/usr/bin/perl

use strict;
use warnings;

my $line = 'www.gkinterphasen.uni-tuebingen.de ogcinfo Graduiertenkolleg "Chemie in Interphasen" Universit344t T374bingen';
my ($i, $j, $k) = split(/\s/, $line, 3);
$k =~ s/"/\\"/g;
print $i, "\n", $j, "\n", $k, "\n";