use Benchmark;

$var = '\a\\aa\\\aaa\\\\aaaa'x100;

print "s:  ";
timethis(100000, '$var =~ s/\\\//g'); # 3 \ for benchmark

print "tr: ";
timethis(100000, '$var =~ tr/\\\//d');