selfout

bash (by me), 70 bytes

A=';echo -n "A=\x27$A\x27";echo -e "$A"';echo -n "A='$A'";echo -e "$A"

bash (by klas), 0 bytes

C (by ths), 72 bytes

main(char*_){_="main(char*_){_=%c%s%c;printf(_,34,_,34);}";printf(_,34,_,34);}

Perl (by pandur), 47 bytes

$x=q[print"\$x=q[$x];$x";];print"\$x=q[$x];$x";

IA32 (by greg), 44 bytes

00000000  e8 00 00 00 00 59 81 e9  05 00 00 00 e9 16 00 00
00000010  00 5a 29 ca 31 db b3 01  31 c0 b0 04 52 51 53 50
00000020  cd 80 58 b0 01 cd 80 e8  e5 ff ff ff

00000000  E800000000        call 0x5
00000005  59                pop ecx
00000006  81E905000000      sub ecx,0x5
0000000C  E916000000        jmp 0x27
00000011  5A                pop edx
00000012  29CA              sub edx,ecx
00000014  31DB              xor ebx,ebx
00000016  B301              mov bl,0x1
00000018  31C0              xor eax,eax
0000001A  B004              mov al,0x4
0000001C  52                push edx
0000001D  51                push ecx
0000001E  53                push ebx
0000001F  50                push eax
00000020  CD80              int 0x80
00000022  58                pop eax
00000023  B001              mov al,0x1
00000025  CD80              int 0x80
00000027  E8E5FFFFFF        call 0x11

Pascal (by Ferdinand Grassmann), 18 lines

const p : Array[1..9] of string =
('const p : Array[1..9] of string =',
'var i : byte;',
'begin',
'writeln(p[1]);',
'write(#40);',
'for i := 1 to 8 do writeln(#39, p[i], #39#44);',
'writeln(#39, p[9], #39#41#59);',
'for i := 2 to 9 do writeln(p[i]);',
'end.');
var i : byte;
begin
writeln(p[1]);
write(#40);
for i := 1 to 8 do writeln(#39, p[i], #39#44);
writeln(#39, p[9], #39#41#59);
for i := 2 to 9 do writeln(p[i]);
end.