use Text::CSV_XS;
my $csv = Text::CSV_XS->new({'quote_char'  => '',
			     'escape_char' => '\\',
			     'sep_char'    => ':',
			     'binary'      => 1 });
if($csv->parse($Row))
{
	my @fields = $csv->fields();
	print "$fields[3]\n";
}