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