my $pattern = pop @lines;