USING: io kernel regexp.private sequences ;
IN: regexp
: re-replace ( string regexp replacement -- result )
[ [ subseq ] (re-split) ] dip join ;
readln string>
regexp
VVNJTkc6IGlvIGtlcm5lbCByZWdleHAucHJpdmF0ZSBzZXF1ZW5jZXMgOwpJTjogcmVnZXhwCjogcmUtcmVwbGFjZSAoIHN0cmluZyByZWdleHAgcmVwbGFjZW1lbnQgLS0gcmVzdWx0ICkKICAgIFsgWyBzdWJzZXEgXSAocmUtc3BsaXQpIF0gZGlwIGpvaW4gOwoKcmVhZGxuIHN0cmluZz4KcmVnZXhw