If your data is fixed width then unpack can be quite handy to chop out the data.
while(<DATA>) { @bits = unpack "A4A4 A4A4 A4A4", $_; print "[$_] '$bits[$_]' " for 0..$#bits; print $/; } __DATA__ NAME010 DESC025 DATE009 NAME011 DESC035 DATE009
cheers
tachyon
In reply to Re: Search and replace with a wild card
by tachyon
in thread Search and replace with a wild card
by dougmilbourne
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |