Para los que decian que mi nombre estaba largo… en Perl seria:
»=~(‘(?{‘.(‘+-@.]]’^'[_)@)}’).'»‘.(‘-@#]/-]`[.]:,]`[-]@.:^]`[-]@.:^|’^'{)@)@_}-:@(_@}-:_))@_$}-:_))@_$^’).’,$/})’)
Por otro lado ojala despegue un proyecto que tengo con un grupo de yahoo para rescatar los audios de WFM!
Nada qué, deberÃan reescatar los promos de Best FM, Nu Clasics
s/_at_/@/g;
s/_dot_/./g;
…Claro, siempre y cuando tu blog no me los vuelva a transformar ;-)