I suggest to read perldoc perlretut - it's small and usefull. If you explain in english what patterns do you see in these lines, I think, we could provide you a turnkey solution.
UPDATE. If starting positions for these rows in lines are non-variable, you can use unpack, as roboticus said below.