$ perl -Mstrict -Mwarnings -E '
my $str = q{RcdA|CON|139|||Kan|13|J|J|607|abc@gmail.com};
$str =~s{[^|]*$}{};
say $str;'
RcdA|CON|139|||Kan|13|J|J|607|
$