print chomp($x = "A string\n"),"\n";
print "|$x|\n"