note
d5e5
I'm not sure I understand your question, but why not the following?<code>#!/usr/bin/perl
use strict;
use warnings;
my $string = 'data' x 20;
if ($string =~ m/data/) {
print "Matching '$&'", "\n";
}
print 'from $string which has value of ', "$string\n";
#Output:
#Matching 'data'
#from $string which has value of datadatadatadatadatadatadatadatadatadatadatadatadatadatadatadatadatadatadatadata
</code>
869247
869247