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