Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
    print( "'$1'$2'$3'" ) if defined $1;
}
__DATA__

Select or download this

c:\test>junk
'MQSI.3PL846'MSTBKRQ1'MQSI.3PL846'
...
'MQSI.ADM850'MSTBKRQ1'MQSI.ADM850'
'MQSI.ADMAPTR'MSTBKRQ1'MQSI.ADMAPTR'