12 lines
234 B
Perl
12 lines
234 B
Perl
|
#!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";
|
||
|
|
|
||
|
|
|