if(length $foo > 1 and substr($foo,-1,1) ne '/')
{ $foo .= '/'; }

##</code><code>##

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