#! /usr/bin/perl

use strict ;
use warnings ;
$|++ ;

my $datafile = 'test_a.dat' ;

my $username = 'terry' ;
my $req_addr = 'tag@foo.com' ;

my ( $name, $domain ) = $req_addr =~ /^([\w.-]+)(@[\w.-]+)$/ ;

open FH, $datafile or die "Couldn't read $datafile: $!" ;
my @virtual = <FH> ;
close FH ;

open FH, ">$datafile" or die "Couldn't write $datafile: $!" ;

my $wrote_it = 0 ;
for ( @virtual )
{
    print FH $_ ;
    if ( $_ =~ /$domain/ && !$wrote_it )
    {
        print FH "$req_addr\t$username\n" ;
        $wrote_it++ ;
    }
}

close FH ;

__END__