sed/awk, instead of Perl

[Wojciech Puchar]

>
> Try the following:
>
>
> cat t.txt | awk -F\t '{split($1, arr, "."); printf("%s_%s@%s\n", arr[
> 1], arr[2], $2);}'
>
and third