for my $l ($mech->links) {
    my $url  = $l->url;
    my $desc = $l->text;
    my $new  = $url;
       $new =~ s/lol/Laugh Outloud/;

    print "concerning $desc, $url should be $new\n";
    
    # $mech->get( $new );
}