....
if(/^\d{4}: (\w\w ){13}(\w\w)(.*)$/) { # $_ of course
    my $number14 = $2;
    .......
}