perl -e '$str = q|abc|; $str2=q|a|; for($str,$str2){m/\S{2,}/ && print qq|$_|};'