=====================================================

    	  if  ( $line =~ /^Serial number:/ ) {
        	$serial_number = scalar <DATA> for 1; 
       		$serial_number =~ s/^\s+//;		  	  
        	$serial_number =~ s/\s+$//;		   
        	$serial_number =~ s/\R//g;
        	$serial_number = "'$serial_number'";
							
					
    }

=====================================================