#!/usr/bin/perl -w

use strict;

{
  local ($^I, @ARGV) = ('.bak', 'asdf.txt');   
    while (<>) {
      s/asdf/qwer/;
      print;
    }
}