Revision 760 (by ahitrov, 2019/01/22 15:11:09) shebang

 
#!/usr/bin/env perl

#############################################
# convert old rewrite patterns ( like @FOO@ )
# to mtt-compatible syntax
# (keeping @@BAR@@ samples)
#############################################

use strict;
use warnings 'all';


while (<>) {
	s/(?<!\@)\@([^\s\@]+?)\@/<% \$$1 %>/g;
	print;
}