Select Code to Download

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

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