my $VS = qq{
# $Header:   L:/Archiv/Tools/Makros/Nummerierungstool/renum.pl-arc   1.51   Oct 08 2013 10:58:42   $
# $Log:   L:/Archiv/Tools/Makros/Nummerierungstool/renum.pl-arc  $
#    Rev 1.5   Oct 08 2013 10:58:42
};
my ($version) = $VS =~ m|\Q$Header:\E\s+\S+\s+(\d+\.\d+)\s|m;
my ($rev) = $VS =~ m|\sRev\s+(\d+\.\d+)|m;
print "$version - $rev";