Select Code to Download

#!/usr/bin/perl -w -i.bak
use strict;
...
  s/do my/replacement/ if ($. == 3);
  print $_;
}