Select Code to Download

#!/usr/bin/perl -- -w
use strict;
...

    return(join('', @parts));
}

sub jc {
    my ($line) = shift;
...

    return('{' . join(',', @parts) . '}');
}