use strict;
my $string="altcategory=||";
$string =~ /(.*)\Q||\E$/;
print $1;