sub cannonify { my $ver = shift; $ver =~ /(\d+)\.(\d+)\.(\d+)(\w*)/ return chr($1).chr($2).chr($3).$4; } sub uncannonfiy { my $ver = shift; return ord(substr($ver, 0, 1)) . '.' . ord(substr($ver, 1, 1)) . '.' . ord(substr($ver, 2, 1)) . . substr($ver, 3); }