sed/awk, instead of Perl

[Wojciech Puchar]

>> Regards,
>
> cat file.txt | ( while read user domain; do echo "$user@$domain"; done )
>
second cat abuser

while read user domain; do echo "$user@$domain"; done  <file.txt