Hello all: [trammell@nitz ~]$ ./foo #!/usr/bin/perl $x='#!/usr/bin/perl%c$x=%c%s%c;printf $x,10,39,$x,39,10;%c';printf $x,10,39,$x,39,10; [trammell@nitz ~]$ ./foo > foo.out [trammell@nitz ~]$ diff foo foo.out [trammell@nitz ~]$ Regards, John