FileHandle y expresion regular como argumentos

[infiniter]

Hola!
Alguno tiene idea de cómo pasar un FileHandle o una expresión regular como argumento de una subrutina de usuario?
Lo que tengo es una rutina que escribe en un archivo, y esta rutina llama a otras, las cuales también escriben sobre el archivo, por lo que necesito pasarle el handle como parámetro.
Ej:
sub prepara{
open(ARCHIVO, "f.txt");
print ARCHIVO "A";
procesa(ARCHIVO, /^C/, "A");
procesa(ARCHIVO, "B");
close(ARCHIVO);
}

sub procesa{
#@_[0] ni @_[1] funcionan para nuestros propósitos.
}