my $last = (split /:/, $lines[-1])[3];