use warnings;
use strict;
use Data::Dumper;

my $string = "A dun dun B ignorable A something B\n";

my @contents = $string =~ /A (.*?) B/g;

print Dumper \@contents;

##</code><code>##

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