#!perl use strict; my @file = glob "*"; foreach(@file){ if(/\./){next;} else{ rename $_ , $_ . ".rtf"; } }