use strict;
use warnings;

use Tie::File;
use List::Util qw/first/;

tie my @lines, 'Tie::File', shift @ARGV or die $!;
my $line15chr = first {/^.{15}$/} @lines;
print $line15chr,"\n" if defined $line15chr;