Re: Removing dots

[mattk]

Just because I felt like doing something different than an RE:

$origfile = shift;
@chunks = split(/\./, $origfile);
$ext = pop @chunks;
$filename = join("", @chunks, ".$ext");
rename $origfile, $filename;