#!/usr/bin/perl

use strict;
use warnings;

my $str1 = "The tailing spaces example 1     "; ## spaces after 1
$str1 =~ s/\s+$//g;
my $str2 = "The tailing spaces example 2"; 
$str2 =~ s/\s+$//g;

print "Output 1:",$str1,"\n"; ## this removes the spaces after 1
print "Output 2:",$str1,"\n"; ## does nothing
print "Output 3:",$str1.$str2,"\n"; ## removes spaces and concatenates

##</code><code>##

Output 1:The tailing spaces example 1
Output 2:The tailing spaces example 2
Output 3:The tailing spaces example 1The tailing spaces example 2

##</code><code>##

$str1 =~ s/\s+//g;

##</code><code>##

Output 1:Thetailingspacesexample1
Output 2:Thetailingspacesexample2
Output 3:Thetailingspacesexample1Thetailingspacesexample2