WikiBugs/DoEditBannedTranslation

sub DoEditBanned {
  my ($banList, $status);

  print &GetHeader('', T('Editing Banned list'), '');
  return  if (!&UserIsAdminOrError());
  ($status, $banList) = &ReadFile("$DataDir/banlist");
  $banList = ""  if (!$status);
  print &GetFormStart();
  print GetHiddenValue("edit_ban", 1), "\n";
  - print "<b>Banned IP/network/host list:</b><br>\n";
  + print '<b>' . T('Banned IP/network/host list:') . "</b><br>\n";
  - print "<p>Each entry is either a commented line (starting with #), ",
        - "or a Perl regular expression (matching either an IP address or ",
        - "a hostname).  <b>Note:</b> To test the ban on yourself, you must ",
        - "give up your admin access (remove password in Preferences).";

  + print '<p>' . T('Each entry is either a commented line (starting with #),'),
        + T('or a Perl regular expression (matching either an IP address or '),
        + T('a hostname).  <b>Note:</b> To test the ban on yourself, you must '),
        + T('give up your admin access (remove password in Preferences).');
  - print "<p>Example:<br>",
        - "<tt># blocks hosts ending with .foocorp.com</tt><br>",
        - "<tt>\\.foocorp\\.com\$</tt><br>",
        - "<tt># blocks exact IP address</tt><br>",
        - "<tt>^123\\.21\\.3\\.9\$</tt><br>",
        - "<tt># blocks whole 123.21.3.* IP network</tt><br>",
        - "<tt>^123\\.21\\.3\\.\\d+\$</tt><p>";
  + print '<p>' . T('Example:') . '<br>',
        + '<tt>' . T('# blocks hosts ending with .foocorp.com') . '</tt><br>',
        + "<tt>\\.foocorp\\.com\$</tt><br>",
        + '<tt>' . T('# blocks exact IP address') . '</tt><br>',
        + "<tt>^123\\.21\\.3\\.9\$</tt><br>",
        + '<tt>' . T('# blocks whole 123.21.3.* IP network') . '</tt><br>',
        + "<tt>^123\\.21\\.3\\.\\d+\$</tt><p>";
  print &GetTextArea('banlist', $banList, 12, 50);
...
}