Select Code to Download

#!/usr/bin/perl

...
    my ($map_dir,$dir,$part_no,$chg_lvl,$int_lock,$t_spec) = split /\s
++/;
    print "    $map_dir,$dir,$part_no,$chg_lvl,$int_lock,$t_spec";
}