#!perl -n0
s//s|^.|!print$&|gem/ge