Use sed instead of perl