#! perl -slw
use strict;
use Text::CSV_XS;

while(my $Row =<DATA>) {
	my $csv = Text::CSV_XS->new({
		'quote_char'  => '',
		'escape_char' => chr(92),
		'sep_char'   => ':',
		'binary'    => 1
	});

	if($csv->parse($Row)) {
		my @fields = $csv->fields();
		print "@fields";
	}
}

__DATA__
0005:A:A2:\\\\string 04\\\\
0005:A:A2:\\\string 04\\\\
0005:A:A2:\\string 04\\\\
0005:A:A2:\string 04\\\\

##</code><code>##

C:\test>246265
0005 A A2 \string 04\\
0005 A A2 \string 04\\
0005 A A2 string 04\\
0005 A A2 string 04\\