aklaswad

#!/usr/bin/env perl
use strict;
use warnings;
use Carp qw( carp );
use Test::Base;
plan tests => 6 * blocks;

sub escape_mt_export {
    my ($str) = @_;
    $str =~ s/^(-+)$/$1$1$1/gm;