#!/usr/bin/perl
use warnings;
use strict;

while (<DATA>) {
    if (my ($alnum, $constrained)
        = /^foo          # "foo"
           _             # followed by "underscore"
           (?:bar|test)  # followed by "bar|test" (bar or test)
           _             # followed by "underscore"

           ((?:\w+\.)+?) # followed by alhpnum string with
                         # dot at end (like foo10.1.1.1)

           \1?           # followed by one or zero occurences
                         # of same alhpnum string (like
                         # foo10.1.1.1) followed by dot

           (\w{1,10})    # followed by 1-10 characters,
                         # containing at least one digit and
                         # one letter and underscore (e.g.
                         # TEST_test, TEST_test2,
                         # TEST1_test2)

           \.txt$        # ends with .txt
          /x) {

        print "<$alnum | $constrained> $. ok\n"
            if 3 == grep $constrained =~ $_,
                qr/_/, qr/\d/, qr/[[:alpha:]]/;
    }
}
__DATA__
foo_bar_foo10.1.1.1.TEST.txt
foo_test_foo10.1.1.1.foo10.1.1.1.TEST_test.txt
foo_test_foo10.1.1.1.foo10.1.1.1.txt
foo_test_foo10.1.1.1.foo10.1.1.1.TEST-1.txt
foo_test_foo10.1.1.1.foo10.1.1.1.TEST_1.txt
[download]

Note that I changed the quantifier in the first capturing group to frugal to avoid matching both occurrences of $alnum as one without repetition. Nevertheless, in the third case, the whole substring foo10.1.1.1.foo10.1.1. corresponds to $alnum, it's not repeated, and $constrained is just 1 .

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Hi choroba ... sorry for the confusion with the post. below is what I am doing.

foo_bar_foo10.1.1.1.foo10.1.1.1.txt
foo_bar_foo10.1.1.1.foo10.1.1.1.FOO-1.txt
foo_bar_foo10.1.1.1.foo10.1.1.1.test_FOO1.txt
foo_bar_foo10.1.1.1.foo10.1.1.1.test_FOO_abc_mon.txt
[download]

Above are the files which I need to query with regular expression. Out of which I need to pick only file2, file3, file4

and move them to some other directory. file1 should remain untouched.

Similarly sometime another set of files is as below

foo_foo_foo10.1.1.1.TEST.failed
foo_foo_foo10.1.1.1.test_FOO1.failed
[download]

Out of which I need to pick only file2 and move them to some other directory. file1 should remain untouched.

As of now I have separte regex to filter and picking the desired files with grep -v.

Thanks

> Out of which I need to pick only file2, file3, file4

But why? Do you just want to skip the shortest name? If so, use length instead of a regex. Otherwise, try to explain how you select the files to stay or move.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

One last thing I need to extend to below match also

When asking for help on regexes, please provide all the possible test cases. Also, you can use a module like Test::More - first, write as many test cases as possible, then work on your regex until all the tests pass, or post the code here if you have trouble.

use warnings;
use strict;
use Test::More;

my $regex = qr/foo/;

  like "foobar", $regex;
unlike "quzbaz", $regex;
# more test cases here

done_testing;
[download]