Create awk-perl