perl -i -pe '$_ =~ /([\r\n]+)$/; $eol = $1; s/^(\s*\S+:)?(\s*)(call\s[^,;]+),\s*(.*)/$1$2$3$eol$2dw $4/g' *