Select Code to Download

#!/opt/local/bin/perl
use strict;
...
    print "vlan $item\n";
  }
}

#!/opt/local/bin/perl
use strict;
...
    print "vlan $item\n";
  }
}

use Benchmark qw(:all);
my @lines = split /\n/, <<EOF;
...
                   },
   }
);

                Rate split-split          /g   sub-split
split-split 104167/s          --         -8%        -22%
/g          113636/s          9%          --        -15%
sub-split   133333/s         28%         17%          --

                Rate split-split          /g   sub-split
split-split 102459/s          --        -11%        -26%
/g          115741/s         13%          --        -16%
sub-split   138504/s         35%         20%          --

                Rate split-split          /g   sub-split
split-split 100503/s          --        -12%        -28%
/g          114286/s         14%          --        -18%
sub-split   138889/s         38%         22%          --

                Rate split-split          /g   sub-split
split-split 102480/s          --        -10%        -24%
/g          114495/s         12%          --        -15%
sub-split   134590/s         31%         18%          --