Grep yerine Perl

Biraz uzun oldu, ama aslinda kod kismi kisa.