$quelle = $ARGV[0];
$x = $ARGV[0];
$x =~ s/(\w+)\.\w+/$1/;
$ziel = $x; 

open ($INPUT,"<$quelle") or die "konnte $ziel nicht oeffnen,$!\n";
open (OUTPUT,">$ziel.txt") or die "konnte $ziel nicht oeffnen,$!\n";
close ($INPUT);