Help with perl programming

Help with perl programming

I would like to ask you for some help. Is there any Perl expert who wanna help me ?? :)
I need write simple script what will search a text and find required info. Pleasee it's urgent, contact me at mail: lubomir.barej@gmail.com
Here si example of my code:
!/usr/bin/perl
open ':std', ':encoding(UTF-8)';
system "wget http://....";
$s = cat stranka.html;
foreach $line (split(/\n/, $s)){
while($line =~/(<b>(.*?)<\/b>)/){

    $nahrad = quotemeta($1);

    print "$2";

    $line =~s/$nahrad//;

}
}