#!/usr/bin/perl

use DB_File;

my $file = shift;
print "usage $0 filename" unless $file;

tie( @array, "DB_File", $file, O_RDWR, 0666, $DB_RECNO ) 
   || die "Cannot open file $file ($!)\n";

if( $array[1] =~ /word4/ ) {
    $array[0] = "this line now changed";
}

untie @array;