$foo .= '/' unless($foo =~ m/\/$/);