#!/usr/bin/perl -w
use strict;

my @lines = split "\n", <<"LINES";
12345678901234
123456789012345
1234567890123456
123456789012xxx
LINES

chomp @lines;
my @lines15 = grep {15 == length} @lines;

print join "\n", @lines15;