Look for zero-width positive look-ahead in the perldocs ((?=pattern)) and you might be interested in using the s regex switch (same document as refered to above).

Hope this helps, -gjb-