$h->{foo}{bar} =~ s/[._]/ /g;
Some::Custom::Function($h->{foo}{bar});
$h->{foo}{bar} =~ s/^\s+//;
$h->{foo}{bar} =~ s/\s+$//;
$h->{foo}{bar} =~ s/`/'/g;

##</code><code>##

for ($h->{foo}{bar}) {
	s/[._]/ /g;
	Some::Custom::Function($_);
	s/^\s+//;
	s/\s+$//;
	s/`/'/g;
};

##</code><code>##

map { $_ = foo( $bar, $_ ) } values %somehash;