...
        $str .= $1 . $/ while ( $ARGV[0] =~ m/(.{3})/g ); ## NOTE the number 3
...