while(<>) {
	chomp;
	my ( $cnum, $details ) = unpack "x a5 x a*", $_;
	if( $cnum =~ /\d/ ) {
		# new record
	}
	else {
		# follow-up line
	}
}