The Tech Street

#!/usr/bin/perl #Script:- This Script Replaces the string with given string #Author:- Surendra Patil #Date:- 04/04/2013 use strict; use warnings; my $line = undef; #open the file in reading and writing mode open(INPUT_FILE,”+<names.txt”); #store the contents of the file into memory my @data = <INPUT_FILE>; #set the file pointer to the start of the file seek INPUT_FILE,0,0; #loop and replace the string with ignoring case foreach $line (@data) { $line =~ s/belgaum/california/ig; print INPUT_FILE $line; } close INPUT_FILE; #display the modified file open(INPUT_FILE,”<names.txt”); while (my $line = <INPUT_FILE>) { print “$line”; } close INPUT_FILE; =================================================== Input file:- string.txt Surendra Patil From Nidasoshi  belgaum       Karnataka Bangalore India ==================================================== Output:- Surendra Patil From Nidasoshi  california       Karnataka Bangalore India