replace sed to perl