Begrenzung für Smileys im Gästebuch

[$xNeTworKx]

Hallo,

Daran hatte ich auch gedacht, aber wie zähle ich die rohen Smileys?

Wenn die Smileys so wie bei mir aussehen würden (  [s1] - [s40]  ) :

use CGI;
use strict;
my $query = new CGI;
my $url = 'fehlerseite.html';
my $counter = 0;

while ($text =~ /[s(\d\d?)]/g)   {
  my $tag = "<img src="pics/smiley$1.gif" alt="">";
  $text =~ s/[s\d\d?]/$tag/;
  $counter++;
        if ($counter == 10)  {
        print $query->redirect("$url");
        }
  }