Pseudo name=hdiskpower97
Symmetrix ID=000187751303
Logical device ID=0380
state=alive; policy=SymmOpt; priority=0; queued-IOs=0
==============================================================================
---------------- Host ---------------   - Stor -   -- I/O Path -  -- Stats ---
### HW Path                 I/O Paths    Interf.   Mode    State  Q-IOs Errors
==============================================================================
  0 fscsi0                    hdisk100   FA 10cA   active  alive      0      0
  2 fscsi2                    hdisk254   FA  7cA   active  alive      0      0

Pseudo name=hdiskpower90
Symmetrix ID=000187751303
Logical device ID=0381
state=alive; policy=SymmOpt; priority=0; queued-IOs=0
==============================================================================
---------------- Host ---------------   - Stor -   -- I/O Path -  -- Stats ---
### HW Path                 I/O Paths    Interf.   Mode    State  Q-IOs Errors
==============================================================================
  2 fscsi2                    hdisk247   FA  7cA   active  alive      0      0
  0 fscsi0                    hdisk93    FA 10cA   active  alive      0      0

##</code><code>##

#!/usr/bin/perl -w

use strict;
use warnings;

my @filelist = <usc*.devs>;

foreach my $file (@filelist) {
   open(FH,$file) or die "cant open $file: $!";
   while(<FH>) {
      if(/^.*Pseudo.*?\=(.*?$)/ .. /^.*Logical.*?\=(.{4})/sg) {
         print "$1,$2\n;
      }
   }
   close(FH);
}