I guess it won't win, but here is 75: $_="Happy birthday to you,\n"x4;substr($_,61,6)='dear perl5';s/,$/./;print; Heres my entry for ugly: $_="Happy birthday X\n"x4; s/X/to you,/;s/X/to you,/;s/X/dear perl,/;s/X/to you. /;print; Edward Perry > Can anybody get it smaller... > > Richard@waveney.demon.co.uk ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe