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


while ( my $line = <DATA> ) {

    if ( my ( $first_value ) = $line =~ m{First="(\d+)"} ) {
        print $first_value, "\n";
    }
}
__DATA__
 <Response nRecords="5" First="13" Devices="5"/>