format_labels.pl, the actual Perl script