see

• opendir. readdir , ... ¹
• rename

For a platform independent "move" function look at the File::Copy module.

edit

and ...

• uc
• s/// ²

¹) or glob

²) or split

I have something like the following so far to go thru the cleanup as I don't want any _or-.
print "$file\n";

$file =~ tr/_\t\r\n;:/ /;
$file =~ tr/-\t\r\n;:/ /;
$file =~ s/\s+/ /g;
$file =~ s/MY./my/;
$file =~ s/my./my/;
print "$file\n";

Now I am trying to figure out how to match a pattern like if it has '.my' or '.MYc' take '.MY' and place it in 3rd octet, and if it has any # like 1st, .2nd, or .4th then move that infront of the line etc.

Not difficult once you turn it into an algorithm. I suggest you try that first and read the hint if you get stuck.

use strict;
use warnings;

my @flist = qw/MY.switch.Org.1st.txt router.2nd.Org.MY.txt 3rdswitchmy
+org.txt/;
for my $file (@flist) {
    $file =~ /(router|switch)/i or next;
    my $rs = uc $1;
    $file =~ /(\d+)(st|nd|rd)/i or next;
    my $pos = uc "$1$2";
    print "$pos.$rs.MY.ORG.TXT\n";
}
[download]

you are the best.... Thank you very much.

What have you tried so far?