sub trim2 {
	return trim2( $_ ) if not @_;
	return map { local $_ = $_; s/^\s+//, s/\s+$//; $_ } @_
		if defined wantarray;
	for ( @_ ) { s/^\s+//, s/\s+$// }
}