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

##</code><code>##

$string=~/(.*)\|\|$/;