substr (help,help,help);

[Craig S Monroe]

Hello,

I am trying to pull a piece of text out of some html source.
I am using the following, but the result is confusing me.

open (SOURCE, "< $filename");

while (<SOURCE>){
 if (m/\/nic\/login/){
 substr ($_,28,4);
 print;
 }
}

The result is :

                                <small>(<a
href="/nic/login">Login</a>)</small></p>

I would like to just get the word "Login" portion itself

<snipped source>

   <tr><td>
    <p align="center">Not Logged In<br>
    <small>(<a href="/nic/login">Login</a>)</small></p>



What am I doing wrong?


Craig
[EMAIL PROTECTED]
Pager
Numeric: 1-877-895-3558
Email pager: [EMAIL PROTECTED]
--------------------------------------------------------------
You will never find time for anything.
If you want time, you must make it.

Charles Buxton