#!perl -lp
BEGIN{@s=split/,/,shift}
chomp;
$x=$_;
/(\d+)-?/,
$r.=substr$x,$1-1,($'||$1)-$1+1
for@s,$r='';
$_=$r