<>.........60<..><..>...74....83<>....... ##

##

#! /usr/bin/perl -w
$file = '/home/anushya/response_1.xml';
open(FP, $file);
@lines = ;

foreach $num (@lines) {
    if ($num =~ m/(\d+)/){
	    @val = $1;
	    print $val[0],"\n";
	}
    }

close(FP);