$p = $s =~ s{\<strong\>(.*?)\</strong\>}{ $1 } ? $1 : undef ;