http://qs321.pair.com?node_id=591452


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;
}

[download]
  • Comment on Re: regex needed: Capture a single entity from two discontiguous parts.
  • Download Code

In Section Seekers of Perl Wisdom