Используйте инструмент, поддерживающий JSON. Perl имеет библиотеку JSON :
#!/usr/bin/perl
use warnings;
use strict;
use JSON;
my $json = '[{"product":"Apple","id":"2134"},{"product":"Mango","id":"4567"}]';
print 'Enter product: ';
chomp( my $product = <> );
print 'Your product id is: ',
(grep $_->{product} eq 'Apple', @{ from_json($json) })[0]{id}, "\n";
Попробуйте это,
sed -e '/^"3454343345/ s/item2//' file
"1234567890|item2",
"1234567895|item2",
"3454343345|item1|",
"7854343345|item1|item3",
"0454343555|item1|item4|item6",
-e
на -i
для встроенного редактирования, если вывод соответствует желаемому результату.