use if $^O =~ /Win/, q(Tricky_Win); use if $^O !~ /Win/, q(Tricky_Linux);