Select Code to Download

#!/usr/bin/perl
 use warnings;
...
 @splitted_string1 = split " ", $current_column; 
 }