my $string = '\UAS NT4.0 Version   =6.002'; # der backslash ist beunruhigend
my $version = [split /=/, $string]->[-1];
print $version;