my $file = '/etc/redhat-release';

# content of /etc/redhat-release
# CentOS Linux release 7.6.1810 (Core)

open(SOURCE, '<', $file);
my ($version) = <SOURCE> =~ m/release (\d)/;
close SOURCE;

print "The version is: $version\n";