Help for this page
my $re = qr{ ( ... __DATA__ ME170-5/2/8-ME172-2/2/6-ME4028 ME172-2/1/2-ME196-1/1/3-ME4002