use strict; 
use warnings; 
 
my $data = "69 Backup Storage Pool  Primary Pool TAPE_BACKUP, Copy Pool TAPE_OFFSITE,  
  
                               Files Backed Up: 36081, Bytes Backed Up:         
  
                               27,770,282,615, Unreadable Files: 0, Unreadable 
  
                               Bytes: 0. Current Physical File (bytes):          
  
                               8,409,734,275 Waiting for access to input volume 
  
                               300082 (3116 seconds). Current output volume:    
  
                               300724.                                          
 
      70 Backup Storage Pool  Primary Pool TAPE_BACKUP, Copy Pool TAPE_OFFSITE,  
  
                               Files Backed Up: 39, Bytes Backed Up:             
  
                               330,587,389,610, Unreadable Files: 0, Unreadable  
  
                               Bytes: 0. Current Physical File (bytes):          
  
                               10,636,058,581 Current input volume: 300082.      
  
                               Current output volume: 300412.                    
  
      71 Space Reclamation    Offsite Volume(s) (storage pool TAPE_OFFSITE),     
  
                               Moved Files: 8401, Moved Bytes: 851,107,244,      
  
                               Unreadable Files: 0, Unreadable Bytes: 0.         
  
                               Current Physical File (bytes): 4,356,813 Waiting  
  
                               for access to input volume 300082 (1843           
  
                               seconds). Current output volume: 300351."; 
 
 
$data =~ s/\n|\r//g; #remove the \n or \r and make it all one line of data to search thru.. 
 
#save all matches then print 
my @return2 = $data =~ /(\(\d+\s+seconds\))/g; 
        print "Found: $_\n\n" for @return2;