Add sed perl equivalent
Add awk '{print $1}' perl equivalent