combined pquote and quote, added perform subroutine