in reply to regex needed: Capture a single entity from two discontiguous parts.
More simple...
my $number; if ( ($number) = $date =~ m/([\d,]+)/ ) { $number =~ s/,//g; }
In Section
Seekers of Perl Wisdom
in reply to regex needed: Capture a single entity from two discontiguous parts.
More simple...
my $number; if ( ($number) = $date =~ m/([\d,]+)/ ) { $number =~ s/,//g; }