#! /usr/bin/perl
use strict;
use warnings;

while ( my $line = <DATA> ) {

    # sammle alle Vorkommen vom Schema: string="zahl" ein
    # string wird hash-key, zahl wird hash-value
    if ( my %data = $line =~ m{(\S+)="(\d+)"}g ) {

        for my $k ( keys %data ) {
            print "$k = ", $data{$k}, "\n";
        }
    }
}
__DATA__
 <Response nRecords="5" First="13" Devices="5"/>