($_ = $before) =~ s/^\s+|\s+$//g;

##</code><code>##

local $_ = $before;
s/^\s+|\s+$//g;

##</code><code>##

(my $after = $before) =~ s/^\s+|\s+$//g;