#!/usr/bin/perl -w
use strict;
# run this script with:
# perl -0pi sbin/tweak-template-locstring `ack -f share/html -G 'html$'`
s!\<\&\|\/l([^&]*)\&\>[\n\s]+(.*?)[\n\s]*\<\/\&\>!;my ($arg, $x) = ($1, $2); $x =~ s/\s*\n\s*/ /g;"<&|/l$arg&>$x</&>"!smge;


1;