use constant REVISION => ('$Id: mcdt.pl 2081 2006-08-25 16:16:27Z tomte $' =~ /(\d+)/g)[0]; #### use constant REVISION => '$Id: mcdt.pl 2081 2006-08-25 16:16:27Z tomte $' =~ /(\d+)/;