use if $^O =~ /win32/i, 'Win32::TieRegistry', Delimiter=>"/", ArrayValues=>0;

##</code><code>##

if ( $^O =~ /win32/i ) {
    require Win32::TieRegistry;
    Win32::TieRegistry->import(Delimiter=>"/", ArrayValues=>0);
}