use strict; use warnings; my $Registry; use Win32::TieRegistry( TiedRef => \$Registry ); my $CurrVer = $Registry->{"HKEY_LOCAL_MACHINE\\SOFTWARE\\ActiveState\\ActivePerl\\806\\" }; print $CurrVer->{'\\'}."\n";