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