Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
    }
}
print Dumper \@left_split;

@left_split = grep '' ne $_, @left_split;