毎度おなじみのhtml用の文字列の変換なのですが、スピードを早くする方法はないでしょうか？

-----------------------
#!/usr/bin/perl -w
use Time::HiRes;
use strict;

my $str;
my $time = Time::HiRes::time;

for(my $i=0; $i<99999; $i++){
$str = q{&"'<>\n_test_&"'<>\n};

$str =~ s/&/&/g;
$str =~ s/"/"/g;
$str =~ s/'/'/g;
$str =~ s/</</g;
$str =~ s/>/>/g;
$str =~ s/\n/<br>/g;

# print $str, "\n";
}
printf("%f \n", Time::HiRes::time - $time);
-----------------------

私の環境で大体これで2秒ジャストぐらいです。

「その速さで必要十分じゃないのか」と一瞬 自問してしまいましたが、
なにかスピードアップの方法はありますでしょうか？