Schau Dir mal Regexp::Common an. Vor allem diesen Abschnitt. Wenn Du das Modul nicht benutzen magst, kannst Du Dir ja dort den Ausdruck abschauen...