my $line = qq|30 44 02 01 01 04 06 70 75 62 6C 69 63 A7 37 02 0D.....public.7|;
my $fourteenthnumber = (split (/ /, $line))[13];
print $fourteenthnumber;