perl one liners split from utils