#!/usr/bin/env perl use strict; use utf8; use warnings; my ($t1, $t2) = split/ /,<>; print"($t1$t2$t1)/\n";