also ich weiß zwar nicht, was die bauern und bayern damit zu tun haben, aber
bitte:

siehe perldoc perlre für weitere details zu regexes
(bzw. perlretut, perlrequick)
ansonsten kannst du evtl. noch etwas effizienter mit den funktionen
index und substr arbeiten (dokumentiert in perlfunc)