( $hallo ) = split ( /\// ,$abc );
print "$hallo\n";