$p = 'C:\Tools\scripts\Test\Unstable\Foo.pl';;
$p =~ s[C:\\Tools\\scripts\\([^.]+).pl][$1]; 
$p =~ s[\\][ - ]g; 
print $p;;
Test - Unstable - Foo

$p2 = 'C:\Tools\scripts\Test\Foo.pl';;
$p2 =~ s[C:\\Tools\\scripts\\([^.]+).pl][$1]; 
$p2 =~ s[\\][ - ]g; 
print $p2;;
Test - Foo