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

##</code><code>##

a4 x a4 x a5 x2 a3 x3 a3 x2 a18 x a3 x a3 x a