@regexps = ["123", "456"]; 
for ($i = 0; $i < 2; $i++) { 
    $txt =~ m/TT-AAA-MMMM-\d{4}(?=(.+\r\n)*.+regexps[$i])/g; 
    print($&); 
}

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
my $txt = <<EOD; 
Something text 
TT-AAA-MMMM-1929 Something text 
123 Something text 
Something text 456 Something text 
EOD 
 
my @regexps = ("123", "456"); 
for my $regexp ( @regexps ){ 
    $txt =~ m/TT-AAA-MMMM-\d{4}(?=(.+\r?\n)*.+$regexp)/s; 
    print "$regexp: $&\n"; 
}