my $string = 'man, Version 2.4.1, 07 September 2001';
my ($version) = $string =~ /Version ([\d\.]+)/;