ZADANIE 10.
BEGIN{gdzie=5;ok=1; pierwsze_przejscie=1;}
{
	if(pierwsze_przejscie==1)
	{
		gdzie=index($0,"*");
		pierwsze_przejscie=0;
	}
	else if(index($0,"*")!=gdzie) ok=0;
	gdzie--;
}
END{if (ok==1) print "ok"; else print "not";}



Zadanie: Test nr 1
WEJSCIE:
Kowalski | k123@gmail.com
Nowak | nowaczek@student.poznan.pl
Malinowski | malus@wp.pl
WYJSCIE:
Kowalski | Kowalski@gmail.com
Nowak | Nowak@student.poznan.pl
Malinowski | Malinowski@wp.pl
KOD:
{
$3=gensub(/([a-z0-9]+)([@].)/,$1"\\2","g");
$0=$3;
print;
}