#!/usr/bin/perl
# readwrite.pl

while ($line = <STDIN>) {
    chomp($line);
    @tokens = split(" ", $line);
    for $tok (@tokens) {	
	)
	print "$tok ";
    }
        print "\n";
}