print $q->Tr(  { -bgcolor => $bgcolor[ $toggle->() ] },
               $q->td( $key . "  " ),
               $q->td( $q->pre( $data ) );

##</code><code>##

$somevar =~ /^[\d|\w|\*]+$/; # Bad regex, no biscuit.

##</code><code>##

$match_stuff = form_REx(
  start,          # ^
  class("\d\w*"), # [\d|\w|\*] <- still bad!
    one_or_more,  # +
  end             # $
);