sub both_at_once {
	my $data = $testdata;
	$data =~ s/(^\s+|\s+$)//g;
	return $data;
}

sub both_at_once2 {
	my $data = $testdata;
	$data =~ s/(^\s*|\s*$)//g;
	return $data;
}