Update: Looked again, found the lost tilde in the  $title=qr(...) bit of code, not in the regex expression where I was looking. Nevermind...

You have lost the ~ in your match.

I don't see a  '~' (tilde) in the original
    if($title=~/^([a-zA-Z0-9 \.\-\(\)\%\&\:\;\,\"\']+)$/)
match. Can you clarify how it was lost?