while (<DATA>)
{
  if (/A/../B/)
  {
     print;
  }
}
__DATA__
1
2
A
3
4
B
5
6