aiuto con espressioni regolari

Salve a tutti,
sono un po' digiuno di espressioni regolari. Se ho una variabile con una
serie di frasi (ossia parti che iniziano con una maiuscola e finiscono con
un .) come faccio a splittare le frasi?
@frasi = split( /[A-Z].*\./ , $text);
non funziona! Il .* credo si mangi tutto quello che c'è in $text, come devo