s/L(.)|R(.)/push@$_,$---?$&:@$_[($-+=$1,-$2)..-1]/ger,print"@$_
"for<>