[Bioperl-l] getting patterns consensus

[khoueiry]

Hi all,

Let's admit that I have the following pattern : 

$PAT = A[AT]GAT[CT]A

Is there a bioperl method or a fine/fast perl way to get all the
consensus relative to that pattern:
 (i.e)

AAGATCA
AAGATTA
ATGATCA
ATGATTA

Thanks

pierre