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