$s = "("; $s =~ /title='([^']+)'/; print "title: $1\n"; #### title: (PEN.66) O FLYNN RILEY (51)