[MacPerl] UNIX to Mac linebreaks

[pudge@pobox.com (Chris Nandor)]

Does anybody know of a droplet or something to change UNIX linebreaks to
Mac linebreaks?  I have BBEdit, but I wanted something to do it in batches,
drag-n-drop style.

#================================================================
perl -e 'srand();if(rand>.5){$i=0;foreach(@ARGV){@$i=split(//);$z
[$i]=0;foreach(@$i){$s[$i][$z[$i]]=$_;$z[$i]++;}$i++;}foreach(@s)
{foreach(@$_) {print}print" ";$_++}}else{print(join(" ", @ARGV))}
print"\n"' McClellan Clan Motto: Think On

Chris Nandor                                      pudge@pobox.com
PGP Key 0xB76E72AD                              http://pudge.net/