[Cascavel-pm] Trocar código por conteudo que está dentro de uma "sub".

[João Gabriel]

Olá pessoal. Estou fazendo um script e esse abre um arquivo que tem o
seguinte conteudo:

[title]Teste[/title]

Teste teste teste teste teste

Dai eu tentei usar isto para trocar o código [title] por uma palavra ou
conteudo:

#!/usr/bin/perl

open (ARQ, "teste.txt");
@arq = <ARQ>;
close (ARQ);

foreach $linha (@arq) {
$linha =~ s/[title]/&codtitle/ig;
}

print "@arq";

sub codtitle {
return qq~
Titulo
~;
}

Porem o script da erro... diz que tem erro na linha que faz a troca, e se eu
tirar o [ e ] do "title" ele não troca por titulo e sim por "&codtitle".

O que eu faço?

[]'s
João Gabriel