Nothing, in fact , that's the way i did it because I needed to get the files fixed now. I was just trying out piecewise matching becuse I've never done it before.
I've been reading "Perl Best Practices" and was seeing if I could implement something like what was shown on pages 257-258.