#!/usr/bin/perl -spi.bak
s/strlen/safestrlen/g;
s/safesafe/safe/g;
