perl -pi -e 's/(:Timeplaner):Projekt,/$1$1,/' `grep ':Timeplaner:Projekt,' *`