while (@lines) {
    my $line = shift @lines;
    my @string_pieces = ... instruction here
}