#!/usr/bin/perl -w

use File::Copy;

my $log = '/var/log/clamd/clamscan.log';

open LOG, $log or die "Couldn't open $log\n";

while (<LOG>){
    next unless $_ =~ m/moved\ to/;
    my ($src, $dst) = split(": moved to '", $_);
    $dst =~ s/'$//;
    chomp($src);
    chomp($dst);
    print "Moving $dst back to it's original location $src\n";
    move($dst,$src);
}

close LOG;