Select Code to Download

#!/usr/bin/perl -w
use strict;
...
$x =~ s/^\*//;
$x =~ s/::[^:]+$//;
print "CvGV came from $x.\n";