This is perl so there's lots of ways to do it :)

You'll learn much more by experimenting, so just have a go and see what happens.

If you need some hints try perlintro and perlfaq

If you get stuck then ask for some help on a specific problem.