Re^4: Parsing a file line by line until a certain indice in array

If I understand your question correctly, you might try something like:

my $vol_to_parse = qr{ /what/ever }xms;

my $line = get_a_line_somehow();

if ($line =~ m{ ($vol_to_parse .*) }xms) {
    print "$1 \n";
    }
[download]

Comment on Re^4: Parsing a file line by line until a certain indice in array Download Code