Select Code to Download

#!/usr/bin/perl

...
  /\G(\w+):(.+)\n/gc  ? ($h{$1} = $2) :
  error 'syntax' while 1;
  }

$VAR1 = {
          'FN' => 'Fee',
...
        };

what was wanted: Fum