I would like to replace all the `\` in an `#include <...>` directives with `/`. And I would like to do it in one shot. Unfortunately I only found this which takes several lines: 

```
if(/^\s*#include\s*(?:"|<)\K.*\\.*(?="|>)/) {
   my $r = $& =~ s|\\|/|gr;
   s/\Q$&\E/$r/g;
}

```

Or maybe better:

```
if(/^(\s*#include\s*(?:"|<))(.*\\.*)((?:"|>).*)$/) {
   my $r = $2 =~ s|\\|/|gr;
   s/\Q$1$2$3\E/$1$r$3/g;
}

```

For example, I could have this kind of input: 

```
    #include "...\...\foo\bar.c" /* Here */// a \comment\ /\/

```

And obtain: 

```
    #include ".../.../foo/bar.c" /* Here */// a \comment\ /\/

```

Can I make it better, prettier and shorter?