while ( my $link = <DATA> ){
    $link =~ m/onclick="document\.location\.href='(.+)'"/g;
    say $1;
}
__DATA__
onclick="document.location.href='hello'"
onclick="document.location.href='there'"
onclick="document.location.href='world'"

__END__
%./match.pl
hello
there
world