22:35 >perl 1476_SoPW.pl
Found match abcXYZ at pos: 12
-----
Use of uninitialized value $1 in print at 1476_SoPW.pl line 28.
Found match XYZ at pos: 5
Found match abcXYZ at pos: 12

22:35 >