Select Code to Download

#!/usr/bin/perl

...
  /\b (F\S+) \h+ ([-\d.]+) (?=.*? (\S+) \h+ 0.00000000 )/gsx;

use Data::Dump 'dd'; dd \%solvent_face;

{
  "acetonitrile_F002"  => 1.69945785,
...
  "h2o_F11-1"          => 29.58963453,
  "h2o_F111"           => 30.24092207,
}