Select Code to Download

foreach (@pairs) {
    s/\s*(.*?)\s*/$1/;
...
    .
    .
}

push @strings, 'nospace';
push @strings, 'trailingspace      ';
...
    $wtf =~ s/\s*(.*?)\s*/$1/;
    print "After: '$wtf'\n\n";
}

Before: 'nospace'
After: 'nospace'
...

Before: '    spaces every    where    '
After: 'spaces every    where    '

# Fetch a list of cookies from the environment or the incoming headers
+ and
# return as a hash. The cookie values are not unescaped or altered in 
+any way.
...
   return \%results unless wantarray;
   return %results;
}