#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $string = q{Test string has tes value like abc
="123",bcd
="345" and xyz
="523"}; my %hash = $string =~ /(\w+)=\"(\d*)"/g;
print "$_ = $hash{$_}\n"; }
IyEvdXNyL2Jpbi9wZXJsCnVzZSBzdHJpY3Q7CnVzZSB3YXJuaW5nczsKdXNlIERhdGE6OkR1bXBlcjsKbXkgJHN0cmluZyA9IHF7VGVzdCBzdHJpbmcgaGFzIHRlcyB2YWx1ZSBsaWtlIGFiYz0iMTIzIixiY2Q9IjM0NSIgYW5kIHh5ej0iNTIzIn07Cm15ICVoYXNoID0gJHN0cmluZyA9fiAvKFx3Kyk9XCIoXGQqKSIvZzsKZm9yZWFjaCAoa2V5cyAlaGFzaCl7CglwcmludCAiJF8gPSAkaGFzaHskX31cbiI7Cn0=