[red@mail ~/dev/perl/re]$ ls -l
total 4
-rwxr-xr-x  1 red  red  475  6 июн 10:43 on20080606
-rw-r--r--  1 red  red  163  6 июн 10:41 on20080606.txt
[red@mail ~/dev/perl/re]$
[red@mail ~/dev/perl/re]$ cat ./on20080606
#!/usr/bin/perl
use strict;
use warnings;
use vars qw( $text $release );
sub get_release($);

open(F, '<', 'on20080606.txt') or die($!); $text.= $_ while <F>; close(F);

if( defined( $release = get_release($text) ) ) {
    printf "found release %s\n", $release;
} else {
    printf "nothing found\n";
}

sub get_release($) {
    my($text, $release);
    $text = shift;
    ( $release ) = $text =~ / \b software \s+ release \s+ (\d[a-z0-9.]*) \b /gxis;
    return $release;
}
[red@mail ~/dev/perl/re]$
[red@mail ~/dev/perl/re]$
[red@mail ~/dev/perl/re]$ cat ./on20080606.txt
   <TD height="24" COLSPAN=1 align=right
   background="imagesnavi/topbg3.gif" align="right" class="header">
DVD Rel. 20  - Software
release 11.Pre4</TD>
gfwd
[red@mail ~/dev/perl/re]$
[red@mail ~/dev/perl/re]$ ./on20080606
found release 11.Pre4
[red@mail ~/dev/perl/re]$

>а вообще Perl -- зло :-)

любой инструмент или неудобен или опасен, если не читать мануалы к нему (ни к кому лично фраза не относится, просто комментарий)