ja, das ist ja kein wunder, dass du fehlermeldungen bekommst.

erstens:
if ($. == %) {

was soll das sein?
die variable $. soll gleich % sein? was ist %?
ist doch klar, dass perl sich hier beschwert.
da kann ich aber nix für. den fehler hättest du auch ohne meinen code bekommen.

zweitens:

du sagst, du willst etwas aus einer zeile extrahieren.
ich schreibe dir ein beispiel, in dem die zeile in der variable $line liegt.

nun baust du das ganze in ein skript ein, in dem die zeile in der variable $_ liegt.
ja nun. dann musst du $line halt in $_ ändern.

du solltest dir ein paar tutorials zu gemüte führen. du solltest zumindest in der lage sein, einen beispielschnipsel auf dein script anzupassen, aber ich habe leider das gefühl, du verstehst fast gar nichts von deinem script.