note
tobyink
<c>
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
my $input = 'chr1:4775792-4775851';
my @numbers = ($input =~ /\b[0-9]+\b/g);
print Dumper \@numbers;
</c>
<div class="pmsig"><div class="pmsig-757127">
<small><small><tt>package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name</tt></small></small>
</div></div>
1041219
1041219