$line =~ s/\n|\r//g;

##</code><code>##

my($version) = $line =~ m/^Version:\s(\d+)$/;

##</code><code>##

my($version) = $line =~ m/^Version:(\s\d+)$/;