Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
my $text = 'name => "foo", fav.num => 3';
my @text = split /($VALUE)/ => $text;
print Dumper \@text;

$VAR1 = [
  'name => ',
  '"foo"',
...
  'num => ',
  '3'
];

$VAR1 = [
  'name => ',
  '"foo"',
  ', fav.num => ',
  '3'
];