# entweder
my ($zahl) = split m#/#, $string, 2;
# oder
$string =~ s#/.*##;