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;