Question

Can someone help me with the correct use of the split function in perl

Here is my input list called @input_lines:

google.com/test
yahoo.com/test
##############
somethingelse.com/test
##############
12345

my(@first_array,@second_array,@rand_no) = split(/^\#+/, @input_lines);

Answer 1

If format of your @input_lines strings is the same, you can similar join all strings and then split it by parts. You should notice that use split /^#+/ is wrong in your case.

my $line = join ',', @input_lines;
my ($first_part, $second_part, $third_part) = split /\#+/, $line;

my @first_array  = split ',', $first_part;
my @second_array = split ',', $second_part;
my @third_array  = split ',', $third_part;