Chomp Lines

chomp removes a trailing newline after a line is read into a scalar.

chomp_lines.pl

use strict;
use warnings;

my $name = ;
my $content = "$name\n";
my $raw = $content;
my $clean = $raw;
chomp $clean;

my $raw_length = length $raw;
my $clean_length = length $clean;

print "name=$name\n";
print "raw_length=$raw_length\n";
print "clean_length=$clean_length\n";

use strict;
use warnings;

my $name = ;
my $content = "$name\n";
my $raw = $content;
my $clean = $raw;
chomp $clean;

my $raw_length = length $raw;
my $clean_length = length $clean;

print "name=$name\n";
print "raw_length=$raw_length\n";
print "clean_length=$clean_length\n";

use strict;
use warnings;

my $name = ;
my $content = "$name\n";
my $raw = $content;
my $clean = $raw;
chomp $clean;

my $raw_length = length $raw;
my $clean_length = length $clean;

print "name=$name\n";
print "raw_length=$raw_length\n";
print "clean_length=$clean_length\n";

chomp `chomp` removes the input record separator, usually a newline, from the end of a string.