Perl char pos?

["Frank Nørvig" <sslug@sslug>]

Hejsa,

Jeg sidder og roder med lidt perl-script og er kommet lidt i tvivl om
hvordan jeg finder positionen (offset) for en char i en string.
Jeg har en række strings der hedder noget ligende "<tag>Dette er en
test</tag>"
Fælles for alle disse strings er at teksten jeg skal have fat i ligger i pos
45, men det er forskelligt hvornår teksten slutter.
Jeg har derfor lavet følgende:

$newstring = substr($linie, 45, ???);

??? vil jeg gerne have erstattet med positionen for hvor </tag> starter, så
det er kun er teksten jeg får ud.
I andre sprog kan jeg bruge pos funktionen, men kan jeg også det i Perl, og
hvordan?

Mvh Frank