On Sep 8, 2019, at 1:30 PM, Gautam Desai <[email protected]> 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: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
