Searching in tta/perl/init