regex - 部分一致の検索

Question

たとえば、次のような行があります。

サムシング.AA.AA.ダークサイド

BLaH.AA.AA.Blah

$before = $1; 行ごとに検索したい $after = $2; $middle = ”AA” の例として、1 行目では次のようになります。

$before= “SOMETHING.”
$After = “.AA.DARKSIDE”

また、

$before= “SOMETHING.AA”
$After = “.DARKSIDE”

私のコードは次のようになります。

$middle = “AA”;  

foreach (@lines){

   $line = $_;   

   while ($line =~m/^(.+)$middle(.+)$/g){

      $before = $1;
      $after  = $2;
  }
}

正規表現を変更する簡単な方法はありますか? PS:$middle変数になるので、ハードコードできません。ご協力ありがとう御座います。