while (<INFILE>) {
	my $foo =~ s/blah/bar/;
	# anything goes here
}