#!/bin/perl -w
use strict;
use warnings;
use Getopt::Long;
my $address;
my @args = @ARGV;
print $args[0]."\n";



sub deleteDoubledots($)
{
 while($_[0] =~ m/\.\./)
        {
        $_[0] =~ s/\/[^\/]*\/\.\.//;
        }
}

my $str = $args[0];
deleteDoubledots($str);
print $str;