Perl - sustitucion sobre vector

:( Hola estoy necesitando ayuda, quiero hacer lo siguiente

Tengo un vector donde cada elemento es un string y quiero sustituir en todos los elementos de dicho vector la ocurrencia de un patron por otra cosa usando una expresion regular,
alguien me puede tirar una idea de como hacerlo , gracias a quien pueda ¡¡¡¡

foreach $string ( @vector ) {
$string =~ s/$patron/$cosa/g;
}