#!/usr/bin/perl

use strict;
use warnings;

while (<DATA>) {
  my $value = $_;
  if ($value =~ m/.*=(.*)$/) { print $1,"\n"; }
}


\UAS NT4.0 Version   =6.002
testiwguiwoi
iwguiwbui
wiubfbuigw=7