#!/usr/bin/env perl use strict; use utf8; use warnings; $_ = <>; while (defined(my $s = <>)) { chomp $s; print$s; } print "\n";