use List::Util qw( first );

my $old_version = do {
	open my $fh, '<', $filename
		or die "Can't open $filename: $!\n";

	first { /ver = '(.*?)'/ } <$fh>;
};