# perl code here, with literal brackets intact: [blah]

##</code><code>##

if ( /\w+.([\d.]+).\s+\w+\s+\w+/ ) {
   print $&, $/;
}

##</code><code>##

if ( /\w+.([\d.]+).\s+CURRENT\s+CHLTYPE/ ) {
   print $&, $/;
}