print Dumper($c);
if($c =~ /^\[(.*)\@(.*)\s\~\]\$\s$/){
print " gefunden!\n";
}else {
print " nicht gefunden!\n";
}