use strict;
 use warnings;
 my $start = 'aaa';
 my $end   = 'bbb';
 my $start1 = 'ab';
 my $end1   = 'ac';
 my @matches = $content =~ /${start}([0-9]{3})${end}.*?${start1}([0-9]{2})${end1}/smg;