Select Code to Download

use strict;
use warnings;
...
$scalar =~ s/::\w+\|\|$word//g;

print $scalar;

use strict;
use warnings;
...
}

print $scalar;