sub buildPath
{
    my $path = shift;
    my $trailing = $path =~ /\/$/ ? '/' : '';
    ...
    return $path . $trailing;
}