Помогите оптимизировать regexp пожалуйста

#!/usr/bin/perl -w
my $line = '<input class="boton" id="boton2" type="submit" name="listar" value="Ver m&aacute;s zzzz" width="2"';
$line=~s/\"([A-Za-z \&;0-9]+)\"( |$)/'\''.join('_',split(' ',$1)).'\' ' /ge;

print $line, "\n";

result:
<input class='boton' id='boton2' type='submit' name='listar' value='Ver_m&aacute;s_ofertas' width='2'

этот регексп берет тэги и всё что между кавычками и содержит спэйсы преобразует в одинарные кавычки + заменяет пробелы между кавычками на _ .
оно работает ок, только как-то мне кажется что это зло неоптимально.

плиз оптимизните.
зарание спасибо.