Help for this page
#! /usr/bin/perl use strict; ... } }
while (<>) { chomp; if (eof) {print "$_\n"} else {print "$_\t"} }