#!/usr/bin/perl

$file=$ARGV[0];
$writefile=$file.".new";
open(FILE,$file);
open(WRITEFILE,"> $writefile");
while(<>) {
s#/##;
print WRITEFILE;
}