Non ho guardato la regexp nello specifico, ma comunque un pattern "perl compatibile" vuole un delimitatore all'inizio e alla fine. Mettici un carattere che non sta nel pattern, tipo "#".

Inoltre $stamp e' un array.