if(  $^O =~ /Win32/  ) {
        system( qq("$yourEditor" "$fileName") );
    } els...