Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
print((join ', ', map {
    join ' ', reverse split / *, */;
} split / *; */, $author), '.');