$s=qq(%cs=qq(%s);
    printf (%cs, 36,%cs,36,36);
    );
    printf ($s, 36,$s,36,36);