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