#!/usr/bin/perl  -w
use File::Copy;
$InDir = $ARGV[0];
$OutDir = $ARGV[1];
if (!opendir(DIR,$InDir)) { print "Bad Dir $InDir\n"; exit 1;}
while(my $Infile = readdir(DIR))
{
if ($Infile =~ 'F\d{8}\.\d{4}\+\d{4}\-\d{4}\+\d{4}_.*')
{
move("$Infile", "$OutDir")
    or die "move failed: $!";
}

elsif ($Infile =~ 'F\d{8}\.\d{6}\+\d{4}\-\d{6}\+\d{4}_.*' )
{
<.....do something........>
}
}