in reply to Re^20: search and replace strings in different files in a directoryin thread search and replace strings in different files in a directory
Why did you write this ? my( $in, $bak ) = shift;
Have you read shift?