my $cookie = $mech->cookie_jar->as_string;
$cookie =~ s/cookie_for/cookie_bar/;
$mech->cookie_jar->set_cookie( $cookie );

print $mech->cookie_jar->as_string;