Select Code to Download

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

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

$match_stuff = form_REx(
  start,          # ^
...
    one_or_more,  # +
  end             # $
);