sub cadr { $_[0] =~ /\(\'(.*)\'\)/ and return $1 }