filter.pl

#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

my $contents = do { local $/; <> };

my $regexp = qr{
    <td \s* class="tm">
    \s*
    <a
        \s+
        href="http://valeptr.com/scripts/runner.php\?IM=.*?" 
        \s+
        target="_inbox"
        \s*
    >
    (.*?)
    </a>
    \s*
    </td>
}xms;

while ($contents =~ /$regexp/gxms) {
    say "[$1]";
}