#!/usr/bin/perl -w
use strict;

use Win32::TieRegistry ( Delimiter=>"/" );

my $regString = $Registry->{'LMachine/Software/Microsoft/Windows/CurrentVersion/App Paths/ProMassXcali.exe//'};

use File::Basename;
my($basename, $AppPath, $suffix) = fileparse("$regString",'\..*');
print "$AppPath\n";