#!/usr/bin/perl -w
#
use strict;

my $test = "hop \n";
my $test2 = chomp($test);

print $test2;