jsoninsert.p6

#!/usr/bin/env perl6
my $json = Q:to/END/;
{
  "name" : "Math::FourierTransform",
  "source-url": "git://github.com/MattOates/Math--FourierTransform.git",
  "author": "Matt Oates",
  "source-type": "git",
  "depends": [

  ],
  "provides": {
    "Math::FourierTransform": "lib/Math/FourierTransform.pm6"
  },
  "version": "0.0.1",
  "description": "Discrete Fourier Transform implementation."
}
END
my $nl = "\n";
my $license = "Artistic-2.0";
say $json ~~ s/ ^^
    $<leading>=(\s*)
    $<whole>=( '"name"' $<mid>=(\s*) ':' $<midafter>=(\s*) '"'.*? $$)
    /$<leading>$<whole>$nl$<leading>\"license\"$<mid>\:$<midafter>\"$license\"/;
say $json;
#say $<leading>;