In the spirit of showing the code:

#!/usr/bin/perl
 
use strict;
use warnings;
 
my $tmp = '<tr bgcolor=#CCFFFF><td><a href="/Tracking/SmcRel30Story">S
+mcRel30Story</a></td>r';
 
use HTML::Parser;
my $parser = HTML::Parser->new( start_h => [ \&gethref,"tag,attr" ]);
 
                                                                      
+          
$parser->parse($tmp);
 
sub gethref
{
    my ( $tag, $attribs) = @_;
 
    if ( $tag eq 'a' && exists $attribs->{href} )
    {
       if ( $attribs->{href} =~ /SmcRel30Story/ )
       {
          print $attribs->{href};
       }
    }
}
[download]

/J\

Do what pelagic says.

But if you are approaching this as a learning opportunity, then the following would work with caveats (note that your code contains unescaped double quotes, and therefore would not compile):

#! /usr/bin/perl -w
use strict;

my $tmp = "<tr bgcolor=#CCFFFF><td><a href=\"/Tracking/SmcRel30Story\"
+>SmcRel30Story</a></td>";

my ($path) = $tmp =~ m{<a        # literal <a
                       \s+       # definite whitespace
                       href      # literal href
                       \s*       # possible whitespace
                       =         # literal =
                       \s*       # possible whitespace
                       "         # literal double quote
                       (         # capture the following
                         [^"]+   # greedy string that does not contain
+ a quote
                       )         # end capture
                       "         # literal double quote
                      }imsx;     # case-insensitive
print $path, "\n";
[download]

See how much work it is, and it still isn't good enough? Don't be tempted - do what pelagic says.

CPAN modules are your best bet, since link extraction can be difficult.

But if you don't want modules, this code might get you started reinventing the wheel.

# To get the position of first occurance of "SmcRel30Story"
if ($tmp =~ /SmcRel30Story/) {
    print 'position of SmcRel30Story is ', 1 + length $`, "\n";
}

# To extract everything inside the href
if ($tmp =~ /href="(.+?)"/i) {
    print "I found this inside the quotes: $1\n";
}
[download]