#!/usr/bin/perl -w
use strict;

while (<>) {
  if (/foo/) {
    # ... change line :
    $_ = "This line was changed ($_)";
  };
};