Salve ragazzi, sconosco PERL.

Ho una stringa del tipo
codice:
rev:2; fwsam:src[either], 1 hours;)
mi aiutate a creare un'espressione regolare che mi prenda fwsam.. fino al ;?

Grazie.......