fork download
  1. #!/usr/bin/perl
  2. my $string = 'this is a double backslash: \\\\';
  3. print $string . "\n";
  4. $string =~ s/\\\\/\\/g;
  5. print $string;
Success #stdin #stdout 0s 6056KB
stdin
Standard input is empty
stdout
this is a double backslash: \\
this is a double backslash: \