my $string = '\UAS NT4.0 Version   =6.002'; # der backslash ist beunruhigend
(undef, my $version) = split /=/, $string;