my $html = qq{<font face="Arial, Helvetica, sans-serif" size="2" color="red">};

##</code><code>##

my $html = qq*<font face="Arial, Helvetica, sans-serif" size="2" color="red">*;

##</code><code>##

sub _format_error {
  return qq{<font face="Arial, Helvetica, sans-serif" size="2" color="red">$_[0]</font>};
}
my $login_blocked = format_error('Login Blocked please wait 3 minutes and try again');
# ...etc...