sub my_escape {
    my $x = shift;
    $x =~ s/#/##/g;
    $x =~ s/@/#@/g;
    $x
}

sub my_join {
    join('@',@_)
}