Select Code to Download

#!/usr/bin/perl
use 5.016;
use Data::Dumper;
...
my @arr = split /(;;)/,$text;   # capture delimiter

say Dumper @arr;

C:\> 1036247.pl
$VAR1 = 'blah blah ';
$VAR2 = ';;';
...
$VAR7 = ' yada yada ';
$VAR8 = ';;';
$VAR9 = ' etc etc';