#!/usr/bin/perl
    $s='#!/usr/bin/perl%c$s=%c%s%c;%cprintf($s,10,39,$s,39,10,10);%c';
    printf($s,10,39,$s,39,10,10);

##</code><code>##

    $s='$s=%c%s%c;%cprintf($s, 39,$s,39,10,10);%c';
    printf($s, 39,$s,39,10,10);

##</code><code>##

    $s=q($s=q(%s);%cprintf ($s, $s,10,10);%c);
    printf($s, $s,10,10);

##</code><code>##

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

##</code><code>##

    $s=q($s=q(%s);
    printf ($s,$s);
    );
    printf ($s,$s);