Как файл отформатировать?

tr|<br>|\\n|g;

эээ а можно на примере? вот есть переменная $a - в ней HTML текст. Нужно получить переменную $b с заменой <br> на \n Как? Плизз если не трудно...:-)

script.pl:

#!/usr/bin/perl

while( <> ) {
chomp;
s/\<br\>/\\n/g;
print "$_\n";
}

exit 0;

------------------
Запускать:

./script.pl < a.html > a.txt