#!/usr/bin/perl -w
use strict;

print <<print;
print me
print

(my $s = <<s) =~s/\//\/\//s;
s\/\/\/\/s
s

print "$s";