> @v=('Happy birthday to you')x4;$v[2]=~s/to.*/dear perl5/;$"=";\n";print"@v.\n" I got it down to 73: $a="Happy birthday";print join",\n",$b="$a to you",$b,"$a dear Perl5",$b; Oooh, wait, save a character by setting $, $,=",\n";$a="Happy birthday";print $b="$a to you",$b,"$a dear Perl5",$b; xoxo, Andy -- Andy Lester: andy@petdance.com http://www.petdance.com/ <CF_BOOK_AUTHOR TITLE="Practical ColdFusion"> ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe