Help for this page
#! perl -slw use strict; ... print( "'$1'$2'$3'" ) if defined $1; } __DATA__
c:\test>junk 'MQSI.3PL846'MSTBKRQ1'MQSI.3PL846' ... 'MQSI.ADM850'MSTBKRQ1'MQSI.ADM850' 'MQSI.ADMAPTR'MSTBKRQ1'MQSI.ADMAPTR'