while (my $row=<READFILE>) {
     if($row=~/<TITLE>(.+)-$/){
        my $bugnumber=$1;
     }
[... etc ...]