Perl Regexp

[StehtaufdemSchlauch]

Hi zusammen,

ich brauch mal kurz hilfe bei einem Reg Exp, der glaub ziemlich alltäglich ist, ich aber gerade nicht drauf komme.

Mein String muss in dem folgenden Format sein ...

$string="aa"  
$string="aa,bb"  
$string="w1,sw,34,55,ls,55,d2,63"  
$string="ll,ll"  
$string="oo,22,33"

Also 2 Character gefolgt von nix oder einem Komma und dann nochmal 2 Character.

Wie kann ich das prüfen?

Soweit bin ich gedanklich :

if ($opts{s} !~ /^\w{2},{0,1}\w{2}+$/)  
{  
        exit;  
}

Was ja Käse ist, da dann auch z.B. aabb (ohne Koma) erlaubt wäre. Muss ich da mit split auf das Koma arbeiten und das dann "einzeln" prüfen? Jemand eine Idee?