... 

my $number = 5038062; # In your example
my ( $grabbed ) = $var =~ /(\d{7})/;

print "$grabbed\n";

...