print "'$_'" for split '[*]{2}', $s, 100;;
'123'
'abc'
''
''
''