On Sep 8, 2019, at 1:30 PM, Gautam Desai <gautam.satya.de...@gmail.com> wrote:
> 
> Do you guys have any pointers ? 

        $t =~ m{ 
                (               # capture matched number in $1
                  \d*   # match zero or more decimal digits
                  [05]  # followed by a '0' or '5'
                )               # end of capture
                (?:             # followed by either:
                  \D            # a non-digit
                |               # or
                  $             # the end of the string 
                ) 
                }x 

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/


Reply via email to