#!/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;