#!/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);