my @lines = qw[ 9077/00:00///:8087 9079/00:00/////386/_];
my @erg;
foreach (@lines){
 s/([^\/]*)//;
 push @erg, $1;
}
# erg contains all segments you wanted