Select Code to Download

  my @PERMIT_OPS = qw(
  :base_mem
...
  my (@ret) = ( "a1 b2 c3" =~ /$RE_caption/g );  
  print "@ret\n" ; ## 1 2 3

<SERVER>
  port    => 80
...
DB1 => { user => 'foo' , pass => '123' , host => 'domain.foo' }
<MYSQL>