Select Code to Download

use warnings;
use strict;
use Data::Dumper;
...
my @contents = $string =~ /A (.*?) B/g;

print Dumper \@contents;

$VAR1 = [
          'dun dun',
          'something'
        ];