#!/usr/bin/perl -w -i.bak -p s///g;