opendir(DIR,'.');
@f=readdir(DIR);

foreach $f (@f) {
  $f =~ /(.*\.)DOC$/ && do {$new = $1 . 'TXT'};
  `ln -s $f $new`;
}