Select Code to Download

        my @data_array = split( /;/, $data );
        foreach (@data_array) {
            return "$_\n";  ##########################################
+#####################
            print "$_\n";
        }

#!/usr/bin/perl --
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END" -otr -opr -ce 
+-nibc -i=4 -pt=0   "-nsak=*"
use strict;
...

__END__