shell> perl -MO=Deparse,-p -

defined(%stores) ? ( $wml = join "<br/>\n",map { "<a href='$params{URL}/op?optin&amp;store=$_'>$stores{$_}->{'store_t_address'}</a>" }(keys %stores) ):  $wml = "Pas de résultat<br/><br/>" ;

^D
Assignment to both a list and a scalar at - line 2, near ""Pas de résultat<br/><br/>" ;"
- had compilation errors.

((defined(%stores) ?
    ($wml = join("<br/>\n",
            map({"<a href='$params{'URL'}/op?optin&amp;store=$_'>$stores{$_}{'store_t_address'}</a>";} 
            keys(%stores))))
  :
     $wml) = "Pas de r\351sultat<br/><br/>");