Læs linier i fil alt efter indput

Hej.

Jeg står og mangler et relativt simpel Perl script, men da min viden om Perl er meget lille, håber jeg at der lige er en her der vil hjælpe mig.

Jeg har brug for et script hvor man kan angive en tekst som input til scriptet. Alt efter hvad der er angivet som input, skal den hente 2 linier i en txt fil. Formatet af filen er som nedenstående:

:InOut
1
2
:InSpam
3
4
:InVirus
5
6

De tre linier der starter med : er dem som kan gives som input, så hvis man f.eks. angiver InSpam som input, så skal scriptet returnere 3 og 4 (hver tal i hver sin print sætning). Formatet af txt filen kan sagtens ændres hvis det bliver nødvendigt.

På forhånd tak.

Mvh.

Snowball