expressao regular URGENTE

pessoal to arrancando o EXCHANGE 5.5 da rede e migrando os usuarios para o qmail ;
soh que qdo exportei as contas de correio ficou assim o arquivo:

SMTP:Ponto258@lixo.COM.BR%MS:PAULOOCTAV/PAULOOCTAV/PONTO258%X400:c=US;a= ;p=lixo;o=lixo.COM.BR;s=Ponto258;%CCMAIL:Ponto258 at lixo.COM.BR
CCMAIL:Ponto259 at lixo.COM.BR%MS:PAULOOCTAV/PAULOOCTAV/PONTO259%SMTP:ponto259@lixo.COM.BR%X400:c=US;a= ;p=lixo;o=lixo.COM.BR;s=Ponto259;

e eu preciso apenas pegar os DADOS:
(em negrito)

"Ponto258" apos os ":" e antes do "@"
como faco isso ?

obrigado,

Solucao facil em perl.
Aplique esta regexp no STREAM do stdin e jogue pra stdout.
Ou faca o perl abrir o arquivo, ler, filtrar, e gravar em outro.
Código :

/.*SMTP\:(.+?)\@.+/
PS: nao lembro os parametros do sed pra fazer o mesmo (pelo menos nao da pra fazer com identificadores).

expressao regular URGENTE

GNU Bash-2.05a:

sed 's/.*SMTP:\(.*\)\@.*/\1/' arquivo
Abraços.