... 

my $number = 5038062; # In your example
my ( $grabbed ) = $var =~ /([0-9]{7})/;

print "$grabbed\n";

...