#!/usr/bin/perl -p -ibak 
s/href=\"http:([^\/])/href=\"$1/g