while ( <DATA> )
{
  if ( /browse(\/.*)\// ) { #if the current $_ matches
                            #browse followed by a
                            # / followed by anything
                            #but having to be followed by
                            # another /
                            #then put whatever was found
                            #between the parens in $line
    my $line = $1;
    print "$line\n";
  }
}