if($mech->content() =~ m{$leer([^"]*)"}) {
    print  $1\n;
}