first working verion of the perl script, little steps
got the first 4 tags, baby steps