Removed non S:G:K perl