Help for this page
($_ = $before) =~ s/^\s+|\s+$//g;
local $_ = $before; s/^\s+|\s+$//g;
(my $after = $before) =~ s/^\s+|\s+$//g;