ok men, I tried all 3 suggestions and none worked so here is my code. Again $dm and $dmm are dereived from the subroutines are are in format xx/xx/xx 


        sub date_manip {

                my ($month, $day, $year) = (localtime)[4,3,5];
                sprintf ("%02d/%02d/%02d\n", $month+1,$day,($year % 10
+0));
        }

my $dm = '&date_manip';

        sub date_manip1 {

                my $days = (shift);
                my ($d, $m, $y) = (localtime($time - $days * 86400)) [
+3..5];
                sprintf ("%02d/%02d/%02d", $m+1,$d,($y % 100));
        }

my $dmm = '&date_manip1(1)';

#print ("$dm $dmm");

############################################################
## Gather data for scratch tapes; open file, create list, then print i
+t. ##
############################################################


        open (FOO, ">$scratches") || die "could not open file:$!";
        #($^I, @ARGV) = ('.bak', $scratches);
        open (D, "$logf") || die "could not open file:$!";

         while (<D>) {

                ## look for 9840S and ebexpire
                ## declare OFS = tab
                ## tell split to split on IRS 0,1&5.

                # if (($_ =~ /9840S/) && ($_ =~ /ebexpire, ebexpire/ )
+) {
                if (($_ =~ /9840S/) && ($_ =~ /ebexpire, ebexpire/ ) &
+& ( $_ =~ m/$dm/) &&
 ($_ =~ m/$dmm/)) {
                        local $, = "\t";
                        print FOO +(split)[0,1,5], $/ ;
                }
        }
        close (FOO);
        close (D);

[download]

In reply to Re^2: regex match with interpolated pattern by drock
in thread regex match with interpolated pattern by drock

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.