#!/usr/bin/perl
open (IN , "ls -1|");
while (<IN>) {
chomp ($_);
#print $_;
$a = $_;
if ($_ =~ /\%3A/) {
$_ =~ s/\%3A/\:/;
`ln -s $a $_`;
print "ln -s $a $_\n";
}
#print "\n";
close (IN);