#!/usr/bin/perl -wpi
s/string1/string2/g;