#  Used a delimiter other than '/' to avoid escaping '/'.
$p =~ s!//+!/!g;