sub stripSpaces
{
    my $toStrip = shift;
    return
         $toStrip =~ m{\A\s*(.+?)\s*\z}
       ? $1
       : q{};
}