sub unroll {
    my @x = $_[0] =~ /(?:^|@)((?:##|#@|[^#@])*)/g;
    for(@x){
        $_ =~ s/##/#/g;
        $_ =~ s/#@/@/g;
    } @x
}

##</code><code>##

unroll("#@##@###@####@#####@")

##</code><code>##

    '@#',
    '#@##',
    '##@',

##</code><code>##

unroll("@@#@##@###@####@#####@")

##</code><code>##

    '',
    '',
    '@#',
    '#@##',
    '##@'

##</code><code>##

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

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

##</code><code>##

my_join(map{my_escape($_)}('','','@#','#@##','##@',))

##</code><code>##

'@@#@##@###@####@#####@'