Trim Text

A regular expression substitution can clean predictable whitespace from a scalar.

trim_text.pl

use strict;
use warnings;

my $raw = ;
my $trimmed = $raw;
$trimmed =~ s/\s+\z//;
my $length = length($trimmed);

print "raw=[$raw]\n";
print "trimmed=[$trimmed]\n";
print "length=$length\n";

use strict;
use warnings;

my $raw = ;
my $trimmed = $raw;
$trimmed =~ s/\s+\z//;
my $length = length($trimmed);

print "raw=[$raw]\n";
print "trimmed=[$trimmed]\n";
print "length=$length\n";

use strict;
use warnings;

my $raw = ;
my $trimmed = $raw;
$trimmed =~ s/\s+\z//;
my $length = length($trimmed);

print "raw=[$raw]\n";
print "trimmed=[$trimmed]\n";
print "length=$length\n";

substitution A substitution rewrites the matching part of a string.