Select Code to Download

#!/usr/bin/perl -w
use strict;
...
weird huh?|;

print text_diff([split /\n/,$copy_old], [split /\n/,$copy_new]);