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


my $bool = 1;
open ($INPUT,"<$quelle") or die "konnte $ziel nicht oeffnen,$!\n";
while( my $line = <$INPUT> ){
    if( $line =~ /irgendwas/ ){
        $bool = 0;
    }
}
close $INPUT;

unlink ($quelle) if $bool;