#!/usr/local/bin/perl -w

#4
$slashes = "This / is / a / string / with / many / slashes!\n";
print $slashes;
$slashes =~ s/\//\\/;
print $slashes;
$slashes =~ s#/#\\#;
print $slashes;
$slashes =~ s(many){some};
print $slashes;