#!/usr/bin/perl -wT use strict; my $a = ; chomp($a); print "$a";