#!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";