join ",",map substr($str,$-[$_],$+[$_]-$-[$_]),1..$#+;#NO CARRIER