Select Code to Download

P[[bb]]
  $1: P
  $2: [bb]
...
V[a[b[c[d]f]g]h]
  $1: V
  $2: a[b[c[d]f]g]h

my ($key,$value)=($1,$2);
$value=~s/^\[|\]$//g;