#!/usr/bin/env perl

use strict;
use warnings;
use Carp;
use English;
use File::Copy;

# Do some work
foreach my $file ( glob('/root/fd/fg/*.txt') ) {

    open(my $ifh, '<', $file) or croak($ERRNO);

    my $ad;
    my @rt;

    while((my $line = <$ifh>)) {
        if($line =~ m/ad/) {
            ($line =~ tr/a-z,=//d ) ;
            $ad = $line ;

        }
        if ($line =~ m/rt /){
            ($line =~ tr/a-z,=//d) ;
            push (@rt , $line);
        }
    }

    close $ifh; # Need to close fille after working on it.

    # Rename/move file
    move($file, $file . '.done');
}