$ perl -e 'my $x = " X "; $x =~ s/^\s+|\s+$//; print "|$x|";'
|X |

$ perl -e 'my $x = " X "; $x =~ s/^\s+|\s+$//g; print "|$x|";'
|X|