Regex with LWP won't work... Help

[pplers]

it's an example. I want a script to print the real url behind a lix.in one
so i tried these:

use LWP::UserAgent;
 
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
 
my $response = $ua->post('http://lix.in/53fe67',{ tiny => '53fe67', submit => 'continue',});
my $con = $response->content; 
 
my $con = ~/<p><p><form action="(.*)" method="post">/;
print "$1\n";

the $con variabe is ok, i mean if i print it, it shows the content but the regex won't work. the PRINT $1 show nothing


p.s: lix.in is used to protect rapdishare.com links


the usefull part in the content to get the rapidshare URL is here:

...
<p><p><form action="http://rs71.rapidshare.com/files/24716102/CBRv6CB.rar" method="post">
You want to download the file <b>http://rapidshare.com/files/24716102/CBRv6CB.rar</b><br><table id="premiumtable" cellpadding="5" cellspacing="0">
...

[miller]

Hi pplers,

Remove the "my" from your regex statement.

if ($con =~ /<p><p><form action="(.*)" method="post">/) {
    print "$1\n";
} else {
    print "No Match Found";
}
 

- Miller

[KevinADC]

might also need to "s" modifier on the end of the regexp:

if ( $con =~ /<p><p><form action="(.*)" method="post">/s )

$con must be a multi line scalar, adding "s" will tell the regexp to treat it as one line.

[pplers]

thanks to both

it worked great xD