#!/usr/bin/perl

use strict;
use warnings;

foreach $_ (@ARGV) {
   my $oldfile = $_;
   s/.* //g;
   rename($oldfile, $_);
}