#!usr/bin/perl

use warnings;
use strict;

print "Input something and we'll print it: ";
my $string = <STDIN>;

chomp( $string );  # Last character removed only if a newline
print "\nThis is safer. Still '$string.'\n";