Actually you don't really want to do it that way. You do want to use something like WWW::Mechanize::FormFiller off CPAN which fills in forms and submits them for you. Ready to go at a CPAN mirror near you. You will also need to read the docs for WWW::Mechanize base class to see how you submit the result of the form you filled in with the FormFiller subclass. A few dozen lines of code then take the rest of the week off! Gotta love CPAN

Modifying HTML with regexes is always a fragile solution. You need to use HTML::Parser if you want relaible parsing but as noted above all the hard work has been done for you already.....

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

You could also look at HTML::FillInForm which will do a similar task as what tachyon mentions above. And please take everyone's advice and don't use a regex for this...

substr(). One of the nifty aspects of Perl is that substr() can act as an LVALUE. That is, you can assign into it.

  perldoc -f substr for details.

my $newvalue = "foobar";

foreach (<DATA>) {
    s/(<input .+? value=["']).*?(["'].*?>)/$1$newvalue$2/;
    print;
}

__DATA__
<input type="text" value="">
<input type="password" name="moo" value="fish" />
<input type="text" value=''/>
[download]

use strict;
use warnings;
use HTML::TokeParser::Simple;

my $p = HTML::TokeParser::Simple->new("foo.html");

sub new_form_tag {
    my ($attr) = @_;

    $attr->{value} = "foo"
        if $attr->{name} eq "bar";

    return join " ", "<input", map(qq($_="$attr->{$_}"), keys %$attr),
+ ">";
}

while(my $token = $p->get_token) {
    print $token->is_start_tag('input')
        ? new_input_tag($token->return_attr)
        : $token->as_is;
}
[download]

Makeshifts last the longest.